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ABSTRACT 


A FORTRAN IV computer program is presented, which can be 
used to predict the large two-dimensional elastic-plastic dynamic 
deformations of a free, nonuniformly heated circular ring subjected 
to an initial impulse loading followed by a time-dependent forcing 
function which could be defined to simulate the forces which result 
from the interaction of a burst-rotor blade and a containment ring. 
Provisions which account for temperature-dependent material prop- 
erties and effects of temperature-induced thermal stresses are in- 
cluded. Temperature-dependent, strain-hardening, and strain-rate 
effects of the ring material are taken into account. 

In addition, a new method which uses measured ring position 
data obtained from high-speed motion picture film is proposed to 
calculate the approximate "external forces" acting on the ring 
caused by a fragment -ring interaction. The required accuracy in 
position measurements to obtain meaningful forces is presented 
together with resulting example forces. 
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SECTION I 


.INTRODUCTION 


1.1 Organization 

The Introduction consists of four additional subsections. 

In Subsection 1.2 the containment/control problem is defined, 
while possible solutions to the problem are discussed in Subsec- 
tion 1.3. Subsection 1.4 is devoted to discussing the general 
design procedure for a containment/control device and how experi- 
mental and analytical data may be used to support the design phases 
for such a device. Some of the experimental and analytical work 
accomplished to date and paths for future exploration are described 
in Subsection 1.5. 

1.2 The Nature of the Problem 

The turbojet engine in wide use today has proven itself 
to be the most reliable and trouble-free aircraft engine in the 
history of aviation. Yet, the uncontained failure of high-speed 
rotating turbojet engine parts, due either to an undiscovered 
fault in the engine, or catastrophic ingestion of foreign matter, 
is a well-documented. problem [1, 2, 3, 4, and 5].* In fact. Ref. 4 
indicates that 93 uncontained engine failures were experienced in 
the commercial-aviation field during the period extending from 19 6 2 
to 1968. In addition, the U.S. Navy experienced 46 failures from 
fiscal year i960 to mid-fiscal year 1968, The possibility of 
just one commercial airliner with hundreds of passengers aboard 
crashing because of an uncontained engine failure is sufficient 
incentive to search for a solution to this problem. 


1 

Numbers in brackets, [ ], refer to references cited at the end 
of the text . 
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Auxiliary power units (APU's) must also be considered as 
potential sources of hazardous fragments as these machines, < i- 
taining high-speed rotating parts, are frequently installed in 
the fuselages of aircraft, and are approaching the size of turbojet 
engines in current aircraft. 

1.3 Potential Problem Solutions 

There appear to be three distinct methods of solution to 
the uncontained failure problem. Wiey are outlined below 

(1) Guarantee all of the engine coraponets to be 
100X failure free. 

(2) Selectively reject the fragments to a non- 
sensitive area of the aircraft or to an 
area away from the aircraft. 

(3) Completely contain any and all fragments 
with a containment device. 

It is apparent that the elements of the three methods out- 
lined above may be combined. For instance, it may be possible to 
contain a fragment until it has lost a large portion of its energy 
(method 3) and then reject it to a nonsensitive location (method 2). 

The first method is not considered further in this report 
because it is felt that even with 10035 failure-free components the 
Ingestion of foreign objects may certainly cause a potentially un- 
contained failure. 

The second method, that of selective rejection (or deflec- 
tion) requires further study. Little effort has been concentrated 
in this area to date, primarily because priority has been assigned 
to the study of complete rings (and complete containment). It 
should be pointed out that as far as theoretical analysis is con- 
cerned, the selective-rejection device does not appear to be more 
complicated than the complete-containment device. Proponents of 
the selective-rejection device suggest that there may be a weight 
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S2ving over the complete containment device because of the smaller 
Included angle (less than 360°) which it must subtend. 


The third method, complete containment, has received most 
of the attention to date. Research in this area is being conducted 
by three general groups of people: (1) the engine manufacturers, 

(2) the Naval Air Propulsion Test Center, and (3) the Aeroelastic 
and Structures Research Laboratory of the Massachusetts Institute 
of Technology; research in the latter two organizations 
has been under NASA sponsorship. More will be mentioned in Subsec- 
tion 1.3 about the experimental contribution of NAPTC and the ana- 
lytical contributions of MIT-ASRL. The goal of both of their ef- 
forts is to generate data which will be useful in the design and/ 
or evaluation of proposed containment/control devices. 

The available evidence suggests that the engine manufacturers 
have been primarily concerned (in the area of containment) with com- 
plying with the FAA requirement that failed blades must be contained. 

l.*J The Necessary Steps in the Design of a 
Containment-Control Device 

These steps may be listed conveniently as follows : 

(1) First, the nature of the fragments which are to 

be contained or otherwise controlled must be ade- 
quately specified. This includes, but is not 
limited to, knowing the mass, rotational velocity, 
translational velocity, all geometric properties, 
and pertinent constitutive-property data of the 
fragment materials. The design must be oriented 

toward dealing with particular types of fragments. 

/ 

Portions of a fan blade from a large turbofan 
engine pose a different problem than does a blade 
from a compressor or turbine rotor. 
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(2) Once the properties of the fragments are known, a 
trial containment/control device configuration can 
be chosen, based on experimental and/or analytical 
evidence. The word configuration is understood 

to include cylinders, rings, and other useful struc- 
tural shapes . 

(3) Next a material or combination of materials for the 
device is chosen on the basis of experimental and/ 
or analytical evidence. 

(4) Either by analysis or by experimental evidence, 
the geometric parameters of the proposed contain- 
ment/control device can be optimized (to minimize 
weight, for example). 

(5) Steps 3 and 4 are repeated for each material which 
may be under consideration, and steps 2, 3, and 4 
are repeated for each configuration under consid- 
eration . 

(6) On the basis of the above procedure, the design 
process continues by, hopefully, an efficient 
process, until a final configuration is chosen. 

It is clear that the design procedure must rely heavily 
on either (a) experimental data or (b) analytical techniques, or 
a combination of both of these techniques. 

1.5 Experimental and Analytical Aspects 

I.5«l Experimental Investigations 

At the present time much of the research conducted in the 
United States is experimentally oriented. It appears that the en- 
gine manufacturers have been successful in meeting the PAA blade- 
containment requirements. At present, this blade containment is 
being accomplished with the engine casing. The casing parameters 
are thought to be determined mainly or entirely from consideration 
other than containment requirements. In other words, the casing 
is not blade-containment critical. It is believed that ballistic- 
penetration data are used to check proposed casing designs for 


blade-containment. Aside from the above, the authors lack more 
specific knowledge as to the exact design methods used by engine 
manufacturers in solving the blade-containment problem. 

The Naval Air Propulsion Test Center, Philadelphia, Penn, 
has one of the most advanced and well-equipped spin-pit testing 
facilities in this country. For approximately the last four years, 
experiments on various forms of containment rings have been carried 
out at NAPTC. Some of these rings, consisting of various materials 
and material combinations, have been submitted to NAPTC by in- 
dustry and some are of their own design. Many of these experi- 
ments have yielded excellent high-speed motion pictures of the ex- 
tremely-short-duration ("violently explosive" in nature) events 
occurring during each test. These exploratory investigations have 
contributed to the understanding of the phenomenology of the con- 
tainment problem. It does not appear that there are sufficient data 
at the present time to permit their organization into a form which 
will be of definitive assistance to the designers of new contain- 
ment devices. However, the data and valuable experience gained by 
NAPTC personnel have been helpful in the preliminary stages of 
particular containment-device designs in certain instances. 

1.5.2 Analytical Investigations 

Personnel of the Aeroelastic and Structures Research Labora- 
tory, M.I.T. are engaged in conducting analyses associated with the 
containment/control problem. The goal of this research is to 
establish analytical techniques and mathematical models of a burst 
rotor, for example, and typical containment/control configurations 
so that the analysis, design, and optimization of containment/con- 
trol devices can be accomplished as efficiently as possible. 

The analysis of the ring configuration was chosen as the 
starting point, since definite experimental evidence about tran- 
siently-deforming rings is comparatively easy to obtain and to 
compare with analytical results. The ring analysis is embodied 
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in the FORTRAN computer program JET 1 which is described in detail 
in Section 2 of this report. Assuming that the forces acting on 
the ring (caused by the fragments, in this case) are known from 
appropriate estimates or other means, JET 1 will compute the tran- 
sient elastic-plastic large-deformation response of the ring. The 
output information includes deflections, strains, stresses, and 
bending moments. 

It should be noted that JET 1 requires, as input, the forces 
acting on the ring caused by the fragment (s) interactions with the 
ring. The primary difficulty is that these forces are not known a 
priori. It is believed, however, that an approximate forcing- 
function model may be deduced from the physics of the problem and 
may be expressed in terms of the containment/control device geo- 
metry, material properties, and parameters associated with particu- 
lar types of fragments. Very little progress has been made in this 
area to date since the MIT-ASRL effort thus far has been devoted 
largely to devising experiments and data solution procedures to aid 
in increasing the knowledge of the nature of these forcing functions 
in a typical rotor-burst problem. 

Accordingly, a series of five experiments was designed to 
be conducted at NAPTC. In these tests, different types of frag- 
ments are to be used; a simple single-layer containment ring is to 
be employed in all of these initial tests. In the first (and 
"simplest") test, a single blade is "failed" and impacts the con- 
tainment ring. The transient response* of the containment ring is 
recorded with a high-speed framing camera. The trajectories of 72 
points along the midsurface circumference of the ring are then 
measured for each test. These trajectories may be substituted into 
the equations of motion of the ring in order to deduce the forces 
(or the forcing function) acting on the ring. The computer pro- 
gram which accomplishes this "force extraction" is called TEJ 1, 

1 

In addition to photographically recorded deformations, strains are 
being recorded at various locations on the outer surface of the ring. 
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and its use is described in Section 3. It should be emphasized 
that the same basic equations are embedded in TEJ 1 as are used in 
JET 1, only the inputs are different. 

In summary, the following serves as a condensed guide to 
the current and planned MIT-ASRL research relating to the under- 
standing and analysis of devices for the containment or control 
of rotor fragments: 

(1) Approximate forcing function models are to be 
devised from the physics of the problem, using 
fragment size, fragment kinetic energy, etc., as 
variables . 

(2) Photographic results from NAPTC experiments 
will be employed to obtain detailed response 
measurements of a containment ring for the 
purpose of checking and/or modifying the approxi- 
mate-force prediction methods under item (1). 

(3) Substitute the position results obtained 
from (2) into TEJ 1 and deduce fragment-ring 
interaction forces. 

(*0 Compare the calculated forces from (3) with 
estimated forces from (1) and modify the 
approximate analysis in (1) as needed. 

(5) Independently and concurrently, apply the 
forces from (1) to JET 1 to predict ring 
responses and compare these results with 
results obtained from (2). 

The research effort emphasis thus far has been given to 
items (2) and (3). In the continuing research effort, all five 
items will be pursued in detail. In addition, dynamic response 
analysis methods and programs should be developed to treat multi- 
layer, multimaterial configurations which may be useful for con- 
tainment-control purposes. 
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The remainder of this report consists of three sections: 
Section 2 describes the computer program JET 1 and reports the re- 
sults of three studies using JET 1. A new analytical method for 
finding the forces acting on a containment ring resulting from a 
particle impact, using position data obtained from high-speed 
motion pictures of controlled laboratory spin-pit tests is presented 
in Section 3. A summary of the work accomplished to date, and recom- 
mended avenues of further study are given in Section 4. 

Appendix A presents the equations of motion used in the com- 
puter program JET 1. Appendix B is a user’s manual for JET 1 and 
contains the program listing and a sample problem with resultant 
output . 


SECTION 2 


CAPABILITIES OF THE JET 1 COMPUTER PROGRAM 


2.1 Introduction 

JET 1 is a computer program which uses a step-by-step num- 
erical integration method for predicting the large-deflection dy- 
namic elastic-plastic response of a single-layer ring. This 
method is based on a finite-difference representation of the par- 
tial differential equations of dynamic equilibrium [6, 7]. JET 1 
is especially tailored to predict the elastic-plastic dynamic 
response of a ring to impulsive initial loadings and/or subse- 
quent external transient loads as might be caused by fragments 
from burst high-speed rotating parts of jet engines colliding with 
the ring. 

The program assumes a uniaxial stress state, and can ac- 
count for elevated, nonuniform temperatures (varying both circum- 
ferentially and through the thickness) in the single-layer ring. 

The ring material may be elastic, strain hardening, and/or strain- 
rate sensitive, and is assumed to have material parameters which 
are temperature dependent. Thermal stresses resulting from the 
imposed temperature distribution are accounted for in the initial 
conditions. Provisions are made for including various peripheral 
distributions of initial impulsive loading and for simple distri- 
butions and time histories of subsequent external forcing functions. 
Also, provisions are available for damping out the elastic portion 
of the ring response due to the initial thermal stresses, if de- 
sired . 

2.2 Description of the Program 

2.2.1 Assumptions 

The following conditions and/or assumptions arc made for the 
JET 1 program: 

> 

* 
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1. The stress-strain curve corresponding to any rive 1 
temperature of the single-layer ring material is 
the same for both tension and compression. 

2. The ring cross section is uniform around the circum- 
ference and is rectangular in shape. 

3. The ring can be represented by a series of discrete 
masses, one at each station, interconnected by 
straight weightless bars. 

4 . Plane sections remain plane in bending. 

5. Material behavior can be elastic, strain-hardening 
according to the mechanical sublayer or subflange 
model given in Ref. 7 ; strain-rate effects can be 
included (see A. 5c in Appendix A). 

6. The temperature distribution of the ring is considered 
to be constant with time during the run. (However, 
each continuation run can have a different time- 
independent temperature distribution in order to 
approximate prescribed, quasi-steady varying tempera- 
tures, if desired.) 

7. The procedure employed for obtaining the static 
solution for the heated ring is to allow the ring to 
respond dynamically to the initial stresses induced 
by the temperature distribution until all of the 
plastic work has occurred. Then, the elastic 
response can be artificially damped out to obtain 
the final stress distribution and ring shape. 

2.2.2 Program Capabilities 

2. 2. 2.1 Temperature Distribution Descriptions 

The temperature distribution of the ring is specified in 
JET 1 by assigning a value of temperature to prescribed stations* 
through the thickness direction of the ring's cross section for 

Such stations are termed "flanges" or "flange locations". 
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each mass point around the ring circumference. Because it may be 
unnecessarily tedious to read in values of temperature vs circum- 
ferential and depth locations, several alternate methods are of- 
fered in JET 1 for specifying temperature distributions which are 
either of a uniform nature, or of the type that can be described 
analytically as a fur ction of circumferential position. The three 
option? available in JET 1 for describing tne temperature distri- 
bution are as follows (Note: the three methods termed A, B, and C 
are accompanied, in the left-hand margin, by a code name* set 
equal to some Integer; these integers, when specified in the input 
data, tell the computer what method is to be used.): 

METHOD A 

LISTEM = 1 The temperature distribution is described 

completely with input cards (see Fig. 2a). 

METHOD B 

LISTEM = 2 The temperature distribution is of the type 

that can be described (see Fig. 2b): 

(1) through the ring thickness by either 
IRAID = 0: reading temperature vs thick- 
ness by input cards, or 

IRAID = 1: assuming a parabolic distribu- 
tion of the type 
T T 

TOO - -J UOO - |) 2 - fp U(K) - £) + T 2 (l) 
H* 

where c(K) is the radial distance from the 
Kth flange to the c.g. of the 
ring's cross section 
H is the ring thickness 
T q , T^ , T 2 are input values. 

(2) circumferentially , by assuming that 

i 

Variable names used in the computer program are listed and de- 
scribed in Appendix B, Subsection B.6. 
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any of the above selected variations of 
temperature through the thickness 
1CIRC = 1 is constant around the circum- 
ference 

ICIRC = 2 varies as sine* 

ICIRC ■ 3 varies as cos6/2 

METHOD C 

LISTEN = 3 Yields a temperature distribution which is geo- 

metrically a function of the distance from the 
flange to the outer surface of the front of the 
ring measured parallel to the z axis (see Fig. 

2c). The temperatures are obtained from a 
curve of temperature vs material depth which is 
read in as input data in terms of ten temperature 
vs material-depth coordinates. The program then 
calculates the value of material depth corres- 
ponding to each flange position and reads the 
appropriate value of temperature, interpolating 
linearly between the proper coordinates given. 

This procedure is used only for the front of 
the ring and that portion which is outside the 
plane tangent to the inner radius, parallel 
to the z axis (see Fig. 2c). The temperatures 
of all portions of the remainder of the ring are 
set equal to the unheated temperature of the ring: 
TCOOL. 

2. 2. 2. 2 Speciflcat j on of Temperature-Dependent 
Material Properties 

The pertinent temperature-dependent material properties of 
the ring are calculated in the program for each flange corresponding 

i 

See Fig. 1 for the nomenclature used with the lumped-parameter 
model . 
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to the flange temperature by employing an interpolation scheme 
(see Fig. A. 5c) which uses coordinates of experimentally-obtained 
curves of each material property vs temperature. Thus, the pro- 
gram reads in values of material properties at given temperature 
levels (the upper and lower temperature extremes must bracket all 
the given temperatures of the ring) and then calculates, by linear 
interpolation, appropriate material constants for each flange at 
each mass point of the ring. 

2. 2. 2. 3 Types of External Loadings 

The current input provisons of the JET 1 program assume 
that the ring is acted upon only by a single "fragment" and thus 
the options available to the user to describe the initial impulse 
and the subsequent forcing function are tailored especially to 
this type of loading. 11 The options available to describe these 
loadings are listed below. A code name is given in the left-hand 
margin to identify each possible loading condition: 

1. The initial impulse is specified by reading in or calcu- 
lating the initial velocities in one of 2 ways (see Fig. 3) : 

IOTA=i The discrete impulse on each mass point is 
fixed by assigning initial radial and 
tangential velocity components. 

I0TA=2 A sine-shaped velocity field is specified 
to be distributed over a given number of 
mass points oriented at a constant given 
angle to the local ring tangent. 

2. The subsequent time-dependent forcing function in JET 1 
is described in the form of a triangular pulse as shown 
in Fig. 4. This time-varying total force is distributed 
over a given number of masses in the form of a half sine 
wave, and the position on the ring at which the forcing 

I 

The user may add other options readily, as his needs dictate, since 
JET 1 is valid for any type of forcing function once provision for 
its input has been made. 
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function is applied can move at a desired rotational velocity 
to simulate a possible motion of a particle after its initial 
impact upon the ring. Finally, the angle at which the forces 
are applied is assumed to be constant and is defined as an 
input quantity. 

2. 2. 2. 4 Artificial Damping of Ring Response 

Provisions are included in the JET 1 program to allow the 
user to damp out the ring motion artificially when desired. This 
is done by calculating a force (for each mass point) which is pro- 
portional to the local velocity, and subtracting this damping force 
in the equilibrium equation. The purpose behind the need for 
damping the motion stems from the fact that the ring will respond 
dynamically from an imposed nonuniform temperature distribution and 
and will continue to vibrate elastically (after plasticity, if 
present, has been completed) for as long as the program is run, un- 
less damping is introduced. Since it is usually assumed, in practical 
applications, that the heated ring is stationary (although deformed, 
with an internal stress distribution) when external forces are ap- 
plied, it is useful to be able to solve for the static ring shape 
and stress distribution under these thermal conditions, before one 
takes into account subsequent externally-applied forces. Because 
the energy removed from the ring by plastic work is path-dependent, 
it is important to impose artificial damping only after the plastic 
work has been completed. Also, it should be noted that the value 
chosen for the artificial damping constant must be less than the 
"critical damping" value in order not to affect the final ring 
shape; on the other hand, the damping should not be too small, so 
as to keep the computer time to a minimum. 

In the JET 1 program, both the starting time for imposing 
artificial damping and the damping constant can either be speci- 
fied, or if either or both values are set equal to zero, the pro- 
gram will make appropriate estimates for each of these two quanti- 
ties based on the structural properties of the ring. This 
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capability is described in greater detail in Subsection B.2.1 
of Appendix B. The ring is considered to be completely damped 
when the maximum kinetic energy over a 100 cycle interval is o.l? 
of the maximum kinetic energy present before damping began. 

2. 2. 2. 5 Program Capacity 

The JET 1 program is capable of accommodating the following: 

1. The single-layer ring can be divided into a 
maximum of 100 mass (circumferential) stations. 

2. The total number of flanges through the thickness 
must be an even number, and must not exceed 10. 

3. The total number of sub flanges* per flange to simu- 
late a general stress-strain curve must not be more 
than five. 

4. The total number of temperature levels at which 
material properties are given for estimating 
ring temperature-dependcnc material properties 
cannot be greater than five. 

5. The main computer programs will accommodate any 
type of forcing function; however, the only in- 
put subroutine written to date is for a "single 
fragment " . 

The number of memory locations required on the IBM 360-65 at MIT 
to run JET 1 as listed in Appendix B is approximately 175,000 bytes. 
This includes the locations required for the MIT computer library 
subroutines . 

2.2.3 Program Terminology and Arrangement 

The JET 1 program is composed of a main program and 17 sub- 
routines whicn appear in the program in the order listed. The 
names and functions of these programs are as follows: 

MAIN The main program applies only to a free, single- 

layer, circular ring. It supplies the overall 


s 

Note that each flange of a given mass point consists of up to 
5 equally-strained subflanges of elastic-perfect ly plastic ma- 
terial; each sub flange has the same elastic modulus, but a differ 
ent yield stress in order to represent strain-hardening behavior 
of the material. 
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INPUT 


TEMPS 


HEAT 


TEMPUS 


INIT 


IDENT 




logic for calling the subroutines and determines the 
values for damping and for the maximum equired 
running times when these values are no^ supplied. 

The input and output logic tape units used by the 
computer are also specified in MAIN. These names 
MREAD, MWRITE and MPUNCH must be given values cor - 
responding to those required for the user’s computer 
facility . 

The ring geometry, program logic terms, damping values 
and program cycle time are all read by this subroutine 
Also, additional quantities (derived from the input 
data) which remain constant through the program are 
calculated here. 

Subroutine TEMPS reads in the required temperature 
information and defines the temperature distribution 
of the ring. 

The temperature-dependent material properties of vhe 
ring are defined from input information in this sub- 
routine. Elastic stress limits and subflange areas 
(weighting factors) are also defined here. 

The minimum and maximum effective values, depending 
on the temperature distribution, of the elastic modu- 
lus are calculated in TEMPUS. This subroutine will 
also calculate the appropriate time increment DELTAT, 
if the input value is set equal to zero in INPUT. 

INIT calculates the initial mass point coordinates, 
establishes the pertinent boundary conditions, and 
initializes most of the variables used in the sub- 
routines . 

The IDENT subroutine is called early in the program 
to print out the values of certain input parameters, 
including the temperature distribution, in order to 
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identify the run being made. 


CYCLE 


STRESS 


STRAIN 

TMPULS 


PREZZ 


EQUIL 


KOOLIT 


CYCLE calls the subroutines which carry out the actual 
solution for the desired problem for each time cycle. 
This subroutine is called cyclically until the final 
results are obtained. 

This subroutine contains the stress-strain relations. 

The STRESS subroutine can be used for temperature- 
sensitive materials which exhibit elastic strain- 
hardening properties, with or without strain-rate be- 
havior. 

The strain-displacement relations described in 
Appendix A are contained in this subroutine. 

The data for the impulsive loading is read by this 
subroutine. This information is then used to com- 
pute the incremental velocities and displacements 
of the mass points. 

This subroutine reads the data pertaining to the time- 
dependent forcing function and uses these data to com- 
pute the forces on the ring. 

EQUIL contains the dynamic equilibrium equations that 
are used throughout the run whether or not external 
loads are acting on the ring. It computes the work 
done on the ring by the external forces and the arti- 
ficial damping forces, and it also computes the 
lateral momentum change induced by the forces applied 
to the ring. 

The KOOLIT subroutine computes the average value of 
ring separation every one hundred program computation 
cycles and tests these values until a full cycle of 
the ring's first elastic-plastic mode has been computed. 
At this point a signal is given to the main program 
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tuut plastic benavior is consiuereu to nave ceased, 
and artificial damping can begin. 

ETUI The kinetic energy of tne ring is calculated in this 

subroutine wnile tne ring is being uamped , and the 
maximum value is founa for lui) cycle periods. The 
maximum value of kinetic energy for each 100-cycle 
period is then compared with 0.1* of the maximum 
kinetic energy available at the start of damping in 
order to find when tne ring's elastic response has 
been satisfactorily damped. 

RECORD Tne RECORD subroutine prints out when major milestones 
have been passed in the program (such as when damping 
was begun , etc . ) . 

PRINT The relevant energies and the strains on the inner 

ana outer surfaces of tne ring are evaluated in PRINT. 
The ring shape, separation, internal forces, and cur- 
rent time are printed out by this subroutine. 

FINAL The subroutine FINAL punches the data cards which can 

be used to continue a run beyond its programmed termi- 
nation point. It also reads the input cards in a con- 
tinuation run. 


A complete listing of all the terms used in the JET 1 pro- 
gram is given in Appendix B; a complete listing of these programs 
is also given in Appendix B. 


2.2.4 Organization of MAIN Program 


The flow chart given in Fig. 5 outlines the general organi- 
zation of the JET 1 MAIN progx’am. The first part of the program 
defines the problem to oe solved by reading in constants and cal- 
culating other needed quantities. The remainder of the program 
is divided into two parts. The first is used to solve for tne 
static solution of the heated ring, before external forces are 
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applied, using "artificial" time. The second part takes either 
the results from the first part with time set back to ZERO , or 
(in the case of an unheated ring) initial conditions set up in 
the beginning of MAIN, and solves for the dynamic and, if desired, 
static solution of the ring with external forces included. The 
two parts are separated by the value of a variable called JSTART. 

If JSTART is set equal to zero in the program input, the ring is 
assumed to have a temperature distribution and the first section 
is used with artificial time to damp out the ring's dynamic motion 
caused by the internal thermal stresses. If JSTART is set equal 
to 1 in the program input, the first section is passed over, and 
real time starts immediately with or without a temperature dis- 
tribution, as desired. When a continuation run (using the punched 
output deck from a previous run) is called for, JSTART is set equal 
to 1 automatically by the program, and the solution proceeds using 
real time. Thus, if a temperature variation with time is desired, 
the second section must be used. The motion of the ring cannot 
be damped in this part of the program until two conditions are 
met: first, all external forces must have ceased acting. Second, 
the amount of elapsed time from the end of external loading to 
the beginning of damping must be greater than the value of HALT2, 
which is either given in input or calculated (~ee description for 
Card 3 in Subsection B.2.1 of Appendix B) and is the estimated 
time required for plasticity to end. 

2.3 Application of the JET 1 Computer Program 
to Some Typical Containment Problems 

In order to exercise the JET 1 computer program and to 
demonstrate its capabilities, three exploratory studies were under- 
taken to compute the large-deflection, elastic-plastic transient 
response of single-layer metal rings subjected to given distribu- 
tions of impulse loadings, all at room temperature conditions. 

The first study was preliminary in nature and its purpose 
was to determine the effects of varying certain geometric and 
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material parameters on the transient response of a ring. The 
forcing function used in the study was a prescribed initial ve- 
locity aistribtuion which was applied to a 4-degree segment of 
the ring in an outward direction, 4‘j> degrees to the local normal. 
Tne first of eleven computer runs (see Table 1) was designed to 
approximate in a very rough sense NAPTC-AED Test 10 (Kef. 3) 
wherein a single turbine blade was made to impact a lb. 438-inch 
diameter, 0.125-inch thick, 1020 steel ring. An initial velocity 
of 8000 in/sec was used in the first calculation (Run 1); this 
velocity is equal to the calculated value of the velocity of the 
blade fragment at impact. Runs 2 through 4 were the same as Run 1 
except that the ring thicknesses employed were 0.1375 inch, 

0.1500 inch and 0.2500 incn, respectively. Runs 5 and 7 were 
equivalent to Run 1 except that the resultant initial velocity of 
the 4-degree ring segment used in each run was 8800 in/sec, 

9600 in/sec, and 16,000 in/sec, respectively. Runs 8 through 10 
used the same value of the Elastic Modulus (30 x ]0^ psi) as Run 1 
but the strain-hardening stress-strain curve in each case was ele- 
vated such that instead of a yield stress of 35>000 psi (as in 
Run 1), the yield stresses were 38,000 psi, 42,000 psi, and 
70,000 psi, respectively. Finally, Run 11 was the same as Run 1 
except tiiat instead of using 80 mass points to approximate the 
ring, 100 mass points were used, and the initial velocity was 
distributed over about a 10-degree rather than a 4-degree section 
of the ring, as used in Runs 1 througii 10, on an equal-momentum 
basis. The results of the first run are presented in Fig. 6 
which shows the ring profile shape at various instants in time. 
Figure 7 shows the ring profile for each succeeding case at 
t = .002140 sec. No specific conclusions are made from this first 
study, for while instructive, the results are too preliminary in 
nature to ue very definitive. The study does illustrate, however, 
one type of parametric study for which JET 1 can be used. 

The purpose of the second study was to use JET 1 to 


calculate the value of a characterizing velocity (simulating a 
single blade impact as in the first study) which would produce 
incipient fracture of each of three equal-weight rings made of 
1020 mild steel, 7079-T6 aluminum alloy, and 6A1-4V titanium 
alloy, respectively, under various conditions. 

Each ring was finite differenced such that 60 mass points 
represented the entire ring. The initial velocity distribution 
used to simulate the blade impact was assumed to be sine-shaped, 
covering 5 segments (30 deg of arc) of the ring. The velocity 
imparted to each of the 9 masses was directed at an angle 3 rela- 
tive to the local tangent (see Fig. 3)» where 3 = 21 deg. for all 
but the last case where 3 was varied from 0 to 90 degrees. 

The procedural use of JET 1 to calculate the fracture ve- 
locity in each case was as follows: the particular physical 
properties of the ring to be studied were supplied to JET 1, and 
the ring was excited by a characterizing velocity which was chosen 
to be higher than that expected to produce incipient-fracture of 
the ring. For each program finite-difference time-cycle, a test 
was made by the computer to compare the maximum current value of 
tensile strain with the prescribed (or input) value for the frac- 
ture strain. When the prograjn detected a value of strain greater 
than this value, the program was restarted w.th the same initial 
conditions as before, but with the characterizing velocity de- 
creased by approximately 3 per cent. This cycling of the program 
continued for each case until the characterizing velocity was re- 
duced to a point at which the peak value of maximum strain during 
tne protracted run was less than the given value for fracture 
strain. The velocity used before the nonfracture velocity was 
then chosen as the "critical" initial velocity 

The room temperature static mechanical properties [10, 11] 
used to describe these three materials are considered to be reli- 
able except, perhaps, for the values of the fracture strains and 
were represented by piece-wise linear segments a^ defined in 
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Table 3* The dynamic stress-strain properties used for the 1020 
mild steel, and 7078-T6 aluminum rings are considered to be only 
approximate, but the 6A1-4V titanium dynamic properties used are 
believed to be reliable |10]* For aluminum and titanium, only 
static values of fracture strain were used. For mild steel, 
where the fracture strain is believed to be highly dependent on 
strain rate, both a static value of fracture strain, and an esti- 
mated variable fracture strain as a function of strain-rate were 
used (Fig. 8). An approximate description for the strain-rate 
dependent yield behavior of these materials is shown in Fig. 9. 

A tabular description of the cases analyzed is presented 
in Table 2. The ring parameters are presented in Table 3* 

Figure 10 presents the calculated values of the initial 
velocity index, V , required to produce incipient tensile struc- 
tural fracture for each case identified in Table 2 for which 
3 = 21 degrees. Using these results, the following tentative 
conclusions can be made. 

On the basis of the dynamic material property data used 

for steel (Fig. 9), the inclusion of the strain rate (e) effect 

on the stress-strain curve (but Ignoring the e effect on the 
fracture strain magnitude) increases the critical velocity value 
V Q markedly compared with using static stress-strain properties 
and static fracture strain values exclusively. Case S3 in Fig. 10 

for 1020 steel depicts the (possibly more realistic) result wherei 

a rough approximation for the e effect has been included in both 
the o,e curve, and for the fracture strain. 

Similar results were obtained for 7075-T6 aluminum, and 
6A1-^V titanium as shown in Fig. 10. Were e dependent fracture 
strain data available for these two materials, a trend similar 
to but perhaps less pronounced than that of S3 vs SI and/or S2 
would be expected. 


In the vicinity of producing failure strain levels in a 
titanium ring, the results showed that a 2.3 per cent increase 
in V Q led to a 10 per cent increase in the maximum strain. Con- 
versely, an uncertainty of 5 per cent in the failure strain would 
mean an uncertainty of about 1.2 per cent in the critical value 

of V . 
o 

Some calculations were also carried out to illustrate the 
influence of the initial velocity angle B on the location and 
magnitude of the maximum strain induced in a 6A1-*JV titanium ring 
which was loaded impulsively over 5 mass points as in previous 
cases. The effect of changing B is shown in Fig. 11 where the 
calculated inner and outer surface circumferential strains, 
occurring at the same (also the most critical) location for all 
the cases, at the same instant of time during each response, is 
plotted as a function of B. The results are consistent with 
what one would expect from physical arguments. 

The third problem-study reported herein was similar to the 
second in that the velocity for incipient fracture was sought for 
different test conditions. Equal weight rings were loaded im- 
pulsively as before; l^w^v^r , each of 4 rings was assumed to be 
made of a different, hypothetical elastic, pe^fectly-plastic strain- 
rate insensitive material, but all of equal Tracture toughness 
(all materials had the same area under the stress-strain curve to 
the fracture level of strain). As shown in Fig. 12, the material 
in Cases 1, 2, and had common elastic modulii, but different 
perfectly-plastic yield limits. For Case 3, the elastic modulus 
was reduced by a factor of 100, but the yield limit was chosen to 
be the same as for Case 1. Comparing Cases 1, 3» and the criti- 
cal velocity, V q for incipient fracture shows only a weak dependence 
upon the yield limit when the material lias the same elastic modulus 
(rote that the response is quite nonlinear.) Comparing Case 3 with 
Case 1, the change of the elastic modulus by a factor of lOu changes 


ft 


23 


tne critical velocity by only about 28 per cent. 

In conclusion, it should be emphasized that tnese example 
calculations are intended only to illustrate the manner in which 
a parametric study can be made so that the advantages of using 
one material over another can be compared. 
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SECTION 3 


DETERMINATION OF THE FRAGMENT-RING INTERACTION FORCES 
FROM EXPERIMENTALLY-OBTAINED POSITION DATA 

3.1 Introduction 

Extensive results from the use of computer programs using 
the finite-difference numerical method written in this laboratory 
(Refs. u-Q) have shown that the transient response of structures 
acted upon by high-energy, impulse-type forcing functions can be 
accurately predicted if the structural properties, configuration, 
and forcing function shape and magnitude associated with the prob- 
lem are known. Thus, the computer program JET 1, which embodies 
this finite-difference approach, can be expected to fulfill the 
requirement of deciding analytically whether a given ring will 
contain a given jet engine rotor failure, if the above informa- 
tion is known. Perhaps the principal difficulty in tne analysis 
of fragment-ring interaction and structural response concerns the 
forces which result from the fragment-ring Interaction; these 
forces are not well definea and are difficult to estimate ex- 
plicitly from the phenomenology standpoint. While it is possible 
in principle to program the interaction of the fragment and ring 
on a computer by treating each part as a septate free body and 
following in detail the elastic ana elastic-plastic collision 
interactions, this method has the disadvantage of being feasitle 
for only one or, at most, two fragments. Any higher number would 
be prohibitively complicated. 

An alternative method of deducing the forces caused by the 
fragment-ring interaction is proposed in this section. This 
method will allow these forces to be deduced approximately from 
position-time data obtained from measurements of tne configuration 
of an impacted r^ng at -n sequence of Instants in time. In the 
computer program JET 1, as currently written, the forces acting 
on the structure are assumed to ue known, and these forces when 


substituted into the equations of motion via JET 1 yield the tran- 
sient response. The inverse procedure is also possible: by sub- 
stituting an observed transient response into the equations of 
motion, the forces which produced that motion can be deduced. Once 
the approximate forces are found, they can then be used to evaluate, 
and possibly help in determining and/or improving future approximate 
general methods for estimating what the fragment-ring interaction 
forces would be for other ring-fragment configurations, materials, 
and Impact conditions. Once these general forces are found, they 
can be used in future parametric studies to determine optimal con- 
tainment ring parameters for various rotor burst situations. 

3.2 Description of the Method Used to Deduce the 
Interaction Forces 

In this method, the equations of motion as used in JET 1 are 
reversed such that position-time data of the ring are used to esti- 
mate the second time derivative of the positions (accelerations) 
of each of the finite-difference mass points (see Appendix A). 

These derivatives are used to determine the inertial forces acting 
on each finite-difference mass point and these, combined with the 
internal forces, allow the resultant external forces acting on the 
ring to be calculated. A computer program which embodies this ap- 
proach has been written and is called TEJ 1. 

To evaluate and develop this method, position output from the 
example JET 1 run, given in Appendix B, using known forces, was used 
as input to TEJ 1. The results from this preliminary run showed that 
when exact positions are used, exact forces are calculated by TEJ 1. 

However, the experimental position data obtained from the high-speed 

* 

films of the rotor-burst tests are not only too sparse in time (the 
computer program requires positions about ten times more closely 
spaced for a typical ring than the high-speed camera currently 
employed is capable of producing), but also it is inevitable that 
errors (and uncertainties) are produced when the film records are 
reduced to provide digital data for the configuration of the ring. 

X 

The current interval between frames is 28 usee. 


These errors can be demonstrated to have a Gaussian distribution 
about a mean value, with a characteristic probable error (PE)* in- 
herent with the reduction process [ 13 ]. 

In order to determine a reasonable position measurement 
accuracy, the Naval Air Propulsion Test Center is currently con- 
ducting and photographing, with high-speed cameras, controlled 
rotor-burst tests suggested by MIT in support of the analytical 
effort. The high-speed, film strips are viewed on an automated 
film reader with a sensitivity of 1 micron at the film plane, 
and the positions of 72 "mass points" on the ring, and *4 background 
points used to establish an inertial reference frame, are read 
from each frame to produce a time history of the ring shape after 
impact. Initial studies show that the position data from these 
films have an effective probable error of between 0.010 and 0.020 
inch on a 7 - 1 / 2 -inch radius ring. 

To investigate what effect these position errors would have 
on the results from TEJ 1, the exact position-time data discussed 
earlier were first perturbed with a Gaussian set of random errors 
with a mean of zero, and a PE as low as 0.0001 inch for the ex- 
ample ring. Linear interpolation was used to supply positions to 
TEJ 1 between the supplied position data which was spaced in time 
so that it simulated the film record data. The forces obtained 
from TEJ 1 using this simulated perturbed, sparse position data 
showed no recognizable correlation with the "exact" forces which 
were used as Impact data for JET 1. 

From these results, it was concluded that either the position 
data would have to be read much more accurately, or these data would 
have to be improved substantially by smoothing techniques before 
they could be used to obtain interaction forces. The latter 

if 

Tne probable error of a reading, in a given set, is that magnitude 
of deviation whose probability of being exceeded is one half. 

The value (PE) can be calculated from the Standard Deviation (S) 
as PE = 0.67^5 S (Ref. 13) . 
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approach was examined first in order to increase the allowable 
error in position data for TEJ i, and a smoothing procedure to be 
applied to tne input values of the position was incorporated into 
the TEJ 1 program. This procedure and some related developmental 
experiences are described in Subsection 3-3. 

3.3 Analytical Smoothing Methods Used to 
Improve the Measured-Position Data 

As mentioned in the previous subsection, the reduced data 
that are obtained from the high-speed photographs have two prob- 
lems associated with them: (a) sparseness and (b) inaccuracy. 

Many approaches nave been tried to find a satisfactory way of not 
only estimating the mass point positions on the ring required in 
between the times recorded on film by interpolation but also to 
improve the position data as a function of space and time by 
smoothing. The current most successful procedure for improving 
the position data is described in the following. 

The first step consists of smoothing the mass point posi- 
tion data for the ring at each time instant (including assumed 
initial values before time zero). If, at any time, each x,y mass 
point coordinate set is plotted against mass point number, then 
it is possible to generate two smooth curves which describe the 
shape of the ring based upon the set of measured data in a least 
squares sense. Because each curve is cyclic in nature (closed 
ring), Fourier series* were chosen to generate each smoothed curve 
Thus, both sine and cosine series Fourier coefficients which to- 
gether describe the ring shape are calculated at each instant 
corresponding to the camera framing times. 

The next step uses Legendre polynomials to smooth the time- 
variation of each Fourier coefficient calculated in the first step 
Legendre polynomials were chosen for this step because they are 

i 

All interpolation and smoothing methods used in TEJ 1 at present 
are described in detail in Ref. 14. 
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applicable to a discrete interval, and the weighting function is 
unity over the entire interval. Thus, no part of the ring response 
is accentuated in the evaluation of the smoothed curve. Unfortu- 
nately, it is not desirable to use only Legendre polynomials to 
obtain the final smootned curve since the number of times at which 
positions are supplied is generally so low that when higher order 
Legendre polynomials are used, the resulting smoothed curve becomes 
"unstable" in the sense that the curve between points makes wide 
unreasonable excursions from the desired curve. To solve this prob 
lem, intermediate values of each Fourier coefficient versus time 
were supplied using 6-point Lagrangian interpolation polynomials. 
Interpolation using 6 points was chosen so that for each interval 
in time between the known Fourier coefficients, three values on 
each side of the interval could be used to weigh the interpolated 
curve. (At the beginning and at the end of the response, of course 
this cannot be done; in these cases, the center of the 6-point 
sequence cannot be used.) Once the Legendre coefficients are cal- 
culated, the smoothed (in time) values of the Fourier coefficients 
can be calculated at any time desired, and thus the smoothed x,y 
mass point positions are obtained, in turn, as required for the 
TEJ 1 program. 

3.^ Preliminary Results 

3.^.1 Smoothing Techniques 

The various methods tried up to, and including, those 
presently used in the data smoothing process, were evaluated by 
using position data in TEJ 1 obtained from JET 1 using known 
forces. To determine what maximum PE in position data would still 
yield satisfactory forces, exact position data obtained from JET 1 
were perturbed with Gaussian distributed random errors. As the PE 
of the position data was increased from zero, the resulting forces 
were observed and compared with the original "exact" forces. 

The particular case considered for all testing of TEJ 1 
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was a 7.3375-in midsurface-radius ring, 0.175-in. thick, 1.0-in. 
long, made of 6061-T6 aluminum. The forcing function was chosen 
arbitrarily, to be a triangularly-shaped pulse, lasting 400 micro- 
seconds with a peak value of 10,000 pounds at t = 200 microseconds. 
The total force was assumed to be distributed over a 25-degree 
segment of the ring in the shape of a half-sine wave. The com- 
plete ring was finite-differenced into 72 segments (see Subsection 
B.7 of Appendix B). 

When the exact transient response obtained from JET 1 for 
this example was used in TEJ 1 using 30 Fourier terms (both co- 
sine and sine) and 20 Legendre polynomials, the results closely- 
duplicated the input forces to JET 1. Further runs were made 
using position data that were perturbed with random numbers having 
a mean value of zero, and a probable error of increasing value. 

As the PE was increased, it was found necessary to decrease the 
number of both Fourier terms and Legendre polynomials used to 
obtain an optimum force representation. This was not surprising 
since a high number of terms in the smoothing function tends to 
make the resultant smoothed curve follow the position errors too 
closely. A lower number of terms creates a smoother, but less 
sensitive curve. This trend of using fewer terms as the level of 
error increases continues until the complexities of the forcing 
function can no longer be adequately described by a curve which 
must be overly smoothed so that the errors do not unduly affect 
the curve shape. 

A Judged limit of "acceptable" probable error was chosen 
to be .003 inch. This value was determined by making a compro- 
mise between two considerations. Portions of the position data 
supplied by NAPTC, as described in the following subsection, 
showed a data accuracy higher than the average value of PE for 
the whole analysis. The fact that these accuracies were obtained 
indicated that this level of accuracy might be obtainable for all 
of the data if the procedures used in reading the data could be 
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improved. On the other hand, the results from TEJ 1 indicated 
that while it was very desirable to obtain as high an accuracy 
as possible for the position data, a value of PE equal to the best 
obtained from the error analysis performed on the NAPTC data would 
still yield useful force data. Thus, the chosen value of 
PE (0.003 inch) on the example ring was a compromise between two 
rather indefinite limits (the measuring error of PE = .015 inch 
and the TEJ 1 desired limit of about .0005 inch), with the expec- 
tation that future improvements in both the data reduction and 
tne smoothing processes will decrease the gap between them. 

Figures 13 and 14 illustrate the quality of the forces ob- 
tained for two example mass points from TEJ 1 using positions ob- 
tained from the JET 1 example described above, and imposing a 
random probable error of .003 inch. The position data were 
smoothed using 15 Fourier harmonics, and 7 Legendre polynomials. 
The results in Fig. 13 show that at early times the calculated 
force components approximate the exact value well for mass point 
No. 37 on which the force is centered, but they deteriorate 
markedly toward the end of the time history. For the mass point 
No. 1 which is located diametrically opposite mass point No. 37, 
the force components should be zero; Figure 14 shows that only 
the force component in the normal direction is well approximated, 
and the calculated force component in the tangential direction is 
quite poor. If the number of smoothing coefficients used is de- 
creased, the calculated force components become poorer at the 
mass point where che force is applied, but improve at the dia- 
metrically-opposite point. 

3.4.2 Data Reduction 

The position accuracy obtainable by using techniques and 
equipment available at WAPTC was evaluated from four sets of data. 
The first and second sets were read from film records taken of a 
static ring. A quarter of the mass points (approximately 20) plus 
reference marks placed on a background were read in each case for 
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a total of 1 C J and 7 frames per test, respectively. In each set, 
in order to find the relative positions of the mass points and 
the reference marks (the reference marks were treated in the same 
manner as the ring mass positions in this accuracy determination; 
when reducing the data to be used in TEJ 1, the reference marks 
are useu to establish the inertial coordinate system) a reference 
axis for each frame was determined from the center of gravity of 
the points measured in each frame (in viewer coordinates). The 
orientation of each reference axis was determined by the average 
angle of all of the points relative to the viewer x-axis. The 
coordinates of all of the points relative to the new reference 
axis for each set of data were calculated and an error analysis 
was performed on the resulting sets of point positions, in terms 
of their differences from their respective mean values. The 
second two sets of data were obtained from film taken of actual 
dynamic tests, where rings were impacted by burst rotor parts. 

In these two cases, only the reference point positions could be 
used in the error analysis since the mass point positions were 
not static. Otherwise, the error analyses were performed exactly 
in the same manner as was done in the first two sets. As men- 
tioned previously, the results obtained showed that the probable 
error of the measurements varied from 0.010 inch to 0.02 inch on 
the ring for the four tests. 

In an effort to discover way3 of improving the measured 
data, the data from the two static cases were analyzed frame-by- 
frame and point-by-point. These results showed a considerable 
variation in the PE between points. There are at least two 
causes for this. The first is that the film was not of consistent 
quality for all of the points read (due possibly to variations in 
lighting) and second, it was more difficult to position the reader 
reticule for some points than for others. Also evident was a 
general deterioration of accuracy as the number of frames read pro- 
gressed; that is, the results became less uniform as more pictures 
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were read. This indicates that fatigue of the operator of the 
film reader is an important consideration. 

3.4.3 Preliminary Results from TEJ 1 Using 

Position Data Obtained from liigh-opeed 
Photographs 

Position data read from the high-speed film record taken 
of hAPTC Test 4 9 [ 5 ] in which a single rotor blade impacted a 
6061-T6 aluminum ring built to the dimensions described in Subsec- 
tion 3.4.1 was transformed to inertial coordinates and used as in- 
put for TEJ 1*. The results obtained from TEJ 1 gave the calcu- 
lated external-force time history of each of 72 mass points on 
the ring, because of the preliminary nature of the results ob- 
tained, only the forces calculateu for two mass points are pre- 
sented. Figure lb shows the calculated force versus time for the 
mass point which appears to coincide with the impact point on the 
ring (tiiis can be seen from Fig. 15 which 'shows the last measured 
ring profile shape from Test 49). The calculated force-versus-time 
results obtained for a point diametrically opposite the estimated 
impact point is described in Fig. 1< ; note that the forces for 
tnis mass point should be zero. 

In an effort to determine iiow meaning! ui these results are, 
(that is, how closely they represent the true forces applied to 
the ring) the position data obtained from JET 1, using the example 
problem described in bussection 3*4.1 were perturbed with random 
numbers having a probable error of .010 in. (whicn is the average 
error calculated for the reference point positions obtained from 


because the exact time between initiation (blade contact) and ex- 
posure of the first picture taken by the high-speed camera is not 
known, the position data used in TEJ 1 did not include the initial 
(static) shape of the ring. Tims, the forces acting on the ring 
during this time were not calculated. An experimental method for 
measuring tiiis initiation time has been devised by .JAPTC and once 
tnis time is known, the initial conditions of each ring tested 
can oc better represented in future computer runs . 



.lAi’Y'J Test 4;?). Tne so perturued uatu were then useu a.; input in 
ir.J 1. The comparison between the forces obtained from using these 
data in TEJ I and tne exact forces which were used to obtain the 
positions originally, proviues an indication of how close the cal- 
culated forces obtained from Test 49 position data represent the 
exact forces wnicn were causeu by tne blade-ring collision, 
again, only the force-versus-time results for two mass points are 
shown; these results for tne mass point at the center of the sine- 
snapeu force applied to the ring and at tne mass point diametri- 
cally opposite, are presented in Figs. 18 and 19, respectively. 

The exact force-time history is indicated by the dashed line for 
tne mass point which was located at tiie center of the sinusoidal 
forcing function. The forces acting on the diametrically opposite 
mass should be zero. These results from TEJ 1 using position 
data with a FE of .010 in. show that the forces obtained have 

little correlation with the exact forces. 

\ 

Comparing these results with the forces obtained from 
dAPTC Test 49 position aata for tne corresponding mass points 
(Figs. 16 and 17), the WAPTC results appear to be surprisingly 
smooth and "well behaved". Also, the forces acting on the non- 
loaaed mass point are close to zero, as they should be. However, 
for tne mass point located at the impact point (do. 27), tne 
vertical force (F ) is seen to be negative and the horizontal 
force (Fy) is seen to be positive. Ynese two forces constitute 
a force vector (applied to the ring) whose direction points into 
the center of tne ring rather than into tne ring itself at this 
station, which is clearly impossible for a collision which occurs 
on the inside of the ring. Thus, most indications suggest that 
the forces calculated from the dAPTC Test 49 position data using 
TEJ 1 have little similarity with tne actual forces which caused 
the deformation. This result is not surprising since the probable 
error of the position data of Test 49 is more than three times the 
"acceptable" level discussed in Subsection 3*^»1. Subsection 3.5, 
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which follows, contains some suggestions which can be used to im- 
prove the above results. 

3.5 Comments 


As mentioned in Subsection 3«2, the PL of the position data 
read from the high-speed film records was found to be about .010 
inch. Thus, the chosen value of allowable PL in TEJ 1 of .003 incn 
still falls short of wnat has been obtained from data reduction 
thus far, and further improvement in the smootning teciinique is 
still desired. More sophisticated smoothing methods such as using 
spline curves for localized curve fitting have been partially in- 
vestigated and there is hope that further progress in the curve 
smoothing process can oe made. 

Methods are also being sought to imprc/e the accuracy of the 
measured position data. One of the most obvious ways would be to 
read each mass position on each frame more than once. The improve- 
ment which can be obtained is calculated as follows (Ref. 11): 


(PE) e 


(pe) a 

jw 


wnere K is the number of times each position is read 

(PL), is the probable error for any si jle reading 

(PL)^ is the effective probable error of the 
average of K readings 

Thus , for example, by reading the positions four times, it would be 
possible to cut the effective error in the position data in half. 
Since the number of frames which must be reac for each film record 

is as muen as 50 or more, this procedure would require a great deal 

more effort in data reduction and, thus, would likely be used only 
if other more subtle methods fail. 



Ji^C 1 ION *4 


SUMMARY 

\ general approacn toward obtaining an understanding of 
fragment containment/control phenomena and methods for their an- 
alysis nas been outlined. Also, a computer program, called JET 1, 
which can be used to predict accurately whether a particular 
single-material ring will contain high energy rotor disk fragments 
if the forces resulting from the impact and other geometric and 
material property data are known, has been describee. 

In oruer to estimate these (as yet unknown) forces, a new 
method, and a preliminary computer program called TEJ 1 have been 
developed. This program uses position data obtained from high- 
speed photographs of spin-pit tests made on containment rings im- 
pacted by burst rotor parts to calculate the resultant approximate 
fragment-ring interaction forces. 

The present position-data-accuracy obtainable requires that 
smoothing processes be performed before the data can be used profit- 
ably in TEJ 1. Initial smoothing methods performed on the position 
data nave substantially improved the quality of the calculated 
forces from TEJ 1, Lut furtner improvements are needed. Continuing 
effort will be directed toward obtaining improved position data. 

During the second phase of this effort, a computer program, 
JET 2, will be written which will predict the transient responses 
of hard-bonded, multilayer multimaterial, constant temperature, 
circular rings under arbitrary loadings. Options for describing 
bot'i single and multifragment-ring impact forcing functions will 
be included. 

In addition, it is recommended that the use of composite 
materials and/or structures (such as ballistic nylon. E-glass, 
S-glass, foam-metal combinations, etc.) for the construction of 
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containment/deflection devices be explored. 

One thing to note, for metal rings involving fragment-ring 
interaction is that only a small portion of the structure undergoes 

large straining, hence the total energy absorption, E A , where 

E* . jj a dtdV 

is relatively low. v 

Such may not be the case with composites if they can be 
made to delaminate over a large area and volume. Large amounts 
of energy may be absorbed in the delamination process. 
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TABLE 1 


SUMMARY OF INPUT PARAMETERS VARIED FOR AN 
ILLUSTRATIVE PARAMETRIC STUDY 


No. of 
Mass Points 

Ring 

Thickness 

(in) 

Fragment 
Velocity 
( in/sec ) 

Yield 

Stress 

(psi) 

80 

.1250 

8,000 

35,000 

80 

.1375 

8,000 

35,000 

80 

.1500 


35,000 

80 

.2500 

8,000 

35 ,000 

80 

.1250 


35,000 

80 

.1250 

9,600 

35,000 

80 

.1250 

16,000 

35,000 

80 

.1250 

3,000 

38,000 

80 

.1250 

8,000 

42,000 

80 

.1250 

8,000 

70,000 

100 

.1250 

8,000 

35,000 









TABLE 2 


SUMMARY OF CALCULATIONS FOR RINGS 
IMPULSIVELY TO TENSILE (STRUCTURAL) 

LOADED 

FRACTURE 


nun Wo 


a ,e 

Curve 

Fracture 

Strain 

*3 for Initial Velocity 

Not 

e 

Dep . 

e 

Dep . 

Not 

e 

Dep . 

e 

Dep . 

Const . 
at 
21° 

Varies 


Steel 

1020 
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TABLE 3 


RING PARAMETERS AMD STATIC ROOM TEMPERATURE 
MATERIAL PROPERTIES 


DATA COMMON TO ALL RINGS 

Inside Radius 

7.688 in. 

No. of Mass Points 

60 

DATA FOR RINGS OF 

SPECIFIC MATERIAL 

1020 Steel 


Density 

0.000732 lb-sec 2 /in 4 

Thickness 

0.125 in. 

Centroidal Radius 

7.719 in. 

= 33,000 psi 

c 1 = 0.0011? in/in 

a ^ = 60,000 

e 2 = 0.07500 

a 3 = 63,300 

& 3 = 0.20000 

Failure Strain ^ 27.5 

per cent 

7075-T6 Aluminum 


Density 

0.000253 lb-sec /in 

Thickness 

0.350 in. 

Centroidal Radius 

7.863 in. 

= 75,000 psi 

= 0.0075 in/in 

o 2 = 93,000 

e 2 = 0.0400 

a 3 = 137,000 

e 3 = 0.2400 

% 

Failure Strain ^ 12.2 

per cent 

6AL-4V Titanium 


Uensi ty 

0.000421 lb-sec 2 /in^ 

Thickness 

0.210 in. 

Centroidal Radius 

7.793 in. 

= 158,000 psi 

= 0.0090 in/in 

0 2 = 175,000 

e 2 = 0.0360 

a 3 219,000 

e 3 = 0.2360 

Failure Strain ^ 14.3 

per cent 
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Station N Station 1 


FIG. I FINITE-DIFFERENCE MODEL AND NOMENCLATURE 
FOR THE HEATED RING 



(1) Radial Distribution At 0=0° 



T( 1 , 1 ) 

T( 1 , 2 ) 

T(1,K) 

T(1,NFL) 


where T(1,K) are 
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m 7 ; : f in 

±4 U(K)- -) - — 

U d 2 1! 

TZ, T1 and T2 are 


(2) Circumferential Distribution Of T(1,K) 




FIG. 2b SPECIFICATION OF THE RING TEM :'t 
DISTRIBUTION WITH METHOD D 


read-in as data 


U(K)- - ) + T2 
2 

read-in as data 



ICIRC= 3 
(Cos 0/2) 


:u\ EuKE 



FIG. 2c SPECIFICATION OF THE RING TEMPERATURE 
DISTRIBUTION WITH METHOD C 
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I0TA-1 

Initial impulse expressed in terms of 
initial mass point tangential and radial 
velocities 


I0TA-2 

b) Sine-shaped initial impulse expressed 

in terms of peak value of the sine pulse 
and angle between local tangeiu and ve- 
locity vector 


CIRCUMFERENTIAL DISTRIBUTION OF TH; 
CORRESPONDING TO SPECIFIC VmLCilS 


INITIAL IMPU 





TBEGIN T1 TIME TPINAL TIME 

, w,z 



FIG. H SHAPE OF TIME-DEPENDENT FORCING FUNCTION 
USED IN JET 1 
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FIG. 6 RING PROFILE AT SELECTED TIMES DURING DYNAMIC 
RESPONSE FOR CASE 1 
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case 2 
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TITANIUM 6A1-4V 



EFFECTS OF 3 ON THE "MOST CRITICAL STRAINS" FOR IMPULSIVELY -LOADED Ti RINGS 
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FIG. 13 CALCULATED FORCES ACTING ON MASS NO. 37 OBTAINED FROM 
TEJ 1 USING PERTURBED POSITION DATA FROM JET 1 WITH 
A PE OF .003 IN. 
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’T.G . 15 RING PROFILE AT TIME 7 82 MICROSECONDS AFTER 
IMPACT MEASURED FROM HIGH-SPEED FILM RECORD 
OF NAPTC TESTS NO. 49 
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CALCULATED FORCES ACTING ON MASS NO. 27 OBTAINED FROM TEJ 
USING POSITION DATA MEASURED FROM HIGH-SPEED FILM RECORDS 
OF NAPTC TEST NO. 4 9 
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APPE1JDIX A 


DERIVATION OF THE EQUATIONS OF MOTION USED IN JET 1 
A. I Introduction 

The approximate numerical method used in JET 1 for the 
solution of transient responses of two-dimensional, single layer 
rings is presented in this section. The term two-dimensional is 
used in this section to indicate a structure which deforms in one 
plane only. Thus, this development can be applied to any structure 
such as beams, curved beams, or rings which do not deform in the 
direction normal to their original plane. 

The present development includes the following features: 

(1) A provision for including large deflections and 
large strains 

(2) A provision for including elastic-plastic material 
behavior 

( 3 ) A provision for including both the tangential and 
transverse loadings; hence both the normal strain 
along the axis of the structure and the change in 
curvature of the structure are taken into account. 

It is assumed that the thickness of the two-dimensional 
structure under consideration is much smaller than the general 
dimension of the structure; thus, in the dynamic analysis, the 
effects of rotary inertia and shear deformation can be neglected. 
In the following sections, the equations of dynamic equilibrium 
and the equivalent finite-difference equations are presented; the 
latter equations can be interpreted as representing a lumped-mass 
dynamic model which is also described. 
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In the finite difference formulation of the equilibrium 
equation to be used to evaluate the transient response of the 
structure, it will be necessary to evaluate the inplane-stress 
and moment resultants at specific points. Since the structure 
is to undergo elastic-plastic deformations, the state of stress 
can be conveniently calculated only at a finite number of locations 
through the thickness. Thus it becomes necessary to use a numerical 
Integration method to evaluate the inplane-stress and moment 
resultants. Various classical numerical integration (or quadrature) 
methods are available for use. Integration methods such as the 
center-value rule or Simpson's rule, which use equally-spaced 
stations can be employed. Quadrature methods, such as Gaussian 
quadrature (which is probably the most popular and efficient of 
the quadrature methods used) require, in general, abscissa values 
at locations specified by irrational numbers, but are generally 
capable of supplying comparable accuracy (compared to other 
numerical integration methods) with half the number of terms. 

All of the methods evaluate the following integral by: 


I N 



where Wj are weighting factors whose values depend upon the loca- 
tion and the method (Gauss, Simpson, etc.) used, and f(x^) are the 
values of the function at each Xj . The inplane-stress and moment 
resultants to be evaluated Involve integrals of the form 

h/z 

-Wi 
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thus by setting x = 2£/h, the integral becomes: 


h/2 N 

^(C)dC = \ 2 W a <3 (CO 

— V)/<2. <)*' 

A comparison can be made between the center value integra- 
tion method (also called the ’’lumped-integration" method) and the 
Gaussian quadrature method by the following example tabular summary 
which lists the values of Xj and Hj for each case, using N = 4: 


J 

Center-Value Method 

Gaussian Quadrature Method* 


x j 

w j 

X j 

W j 

1 

- .75 

.500 

-.86113 63115 94053 

.34785 48451 37454 

2 

- .25 

.500 

-.33998 10435 84856 

.65214 51548 62546 

3 

+ .25 

.500 

+.33998 10435 84856 

.65214 51548 62546 

4 

+ .75 

.500 

+.86113 63115 94053 

.34785 48451 37454 


*See Ref. 14 

The JET 1 program uses the central value method to evaluate the 
stresses because of the simplicity of evaluating Xj and . 
However, the central-value method is not essential in this 
analysis; the more efficient Gaussian quadrature method could be 
employed by making appropriate changes in the JET 1 program. 

The material behavior is assumed to be elastic-plastic with 
strain hardening. It will be shown that the procedure adopted in 
the present analysis is well suited to take into account also the 
effect of strain rate on the plastic behavior of typical metal 
materials . 



A. 2 Differential Equations of Equilibrium 


Figure A.l shows an element, dS, of a curved two-dimensional 
structure in the y-z plane in its instantaneous large-deformation 
state, where S is a coordinate measured along the axis of the 
structure. The internal forces acting on this element are the 
axial force N, the transverse shear force Q, and the bending moment 
M. The external forces acting on the element are the external 
forces F y (S) and F Z (S) and the inertia forces due to accelera- 
tions in the y and z directions, respectively. 

From the equilibrium of forces along the y-direction, 

(N+ ||-dS) Cos (© +■ ds) -NCos© 

-(a + <&) Sm (©->- If <&) + QSm© 

00 oS 

(A.l) 

+ (s} d S - vn (.S') v dS = O 

where 

m * mass of the structure per unit length 

0 = slope of the structure = sin~^(dz/dS) 

From Eq. A.l the following partial differential equation of 
motion is obtained: 

( N Cos Q) - CQ Svn©') + Fij - v - O (a. 2) 

Similarly from the equilibrium of forces along the z 
direction , 

-|^CuSsn©)-V-^CQcosO) -v F z - r<\w - O < A -3) 
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By considering the moment equilibrium about an axis 
perpendicular to the y-z plane, the following equation is 
obtained 

(m -m -qBs =o 

Thus the third equation of equilibrium is 


<)s 


-Q = O 


(A. 5) 


Finite-Difference Equations 


The differential equations of equilibrium, Eqs. A. 2, A. 3, 
and A. 5, can be finite-differenced in space by substituting the 
following central-difference, finite-difference approximation 
for the partial derivatives: 





or, using a forward difference so that the 1/2 indices disappear 



thus Eqs. A. 2, A. 3, and A. 5 become respectively: 

Cos © i+t — M i Cos Qv ~ Qc S\Q Qi 

(A. 7) 


- (m v) L = o 
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N S>r> Ou4-> -Ni-S m Ql Cos©i-»> — Q«: Cos Qc. 

ASu AS; 

•+• (jFa)i. - YTicWi =0 0 




Hu I -Me. _ Q i + 1 = O (A. 9) 

AS u-v» 

The above equations may be considered as expressing the 
equilibrium of an element bounded by station i and station i+1; 
call this element mass-element it^ . Since m i is equal to mAs and 
remains constant even though the distance between the two neighbor- 
ing stations changes because of the straining along the axis of 
the structure, Eqs . A. 7, A. 8, A. 9 can be rewritten as follows: 

N l +. Cos©;*, - W; Cos Qi - Ql+, S * Ql SvnG,: 

- ( '-S L - ^ l V\. -O (a. io) 

Nll-v* S -Klc S\r»©L — Qu« Cos -v* Cos©,; 

= ASc. - m; W L =0 

- Mi -Q^AS^-O 


(A. 11) 


(A. 12) 
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It is seen that this set of equations (A. 10 and A. 12) can 
be represented by a dynamic model with lumped masses connected by 
weightless straight extensible bars with bending occurring only 
at each mass point station as shown in Fig. A. 2. 

By referring to this model, several quantities in this set 
of equations can be expressed in terms of the locations of the 
lumped masses v^ and w^ For example 


ASi. = \_(y i - Vi-*) -+■ (.Wi. - w c _,) ^ 
Sm©, = ^ 


*4. 


CcjsSc - 


ASc. 

Vc- Vc-I 

ASu 


(A. 13) 
(A. 1H) 
(A. 15) 


A.** Step-by-Step Numerical Solution 

The proposed procedure for solving the three finite 
difference equations is a step-by-step numerical procedure. At 
time tj , it is assumed that the axial force N^, the bending 
moment , and the location of the mass points, v^ and w^^ have 
been determined for all stations and all previous instants of 
time: tj_^, tj_ 2 , e tc. The length of each interval AS i and the 
angle of inclination of each link 8 i can thus be evaluated using 
Eqs. A. 13 to A. 15. The transverse shear force Q 1 can also be 
calculated using eq. A. 12. If the external loads F and F at that 

y z 

instant of time are given, the accelerations v^ and w^ for all 
mass particles can then be evaluated using Eqs. A. 10 and A. 11. 


The central-difference approximation is now used to 
represent the second derivatives of v and w with respect to time: 





- 2-Vl, j •+ \A. 
(AO 1 


(A. 16) 


v}. . C d- W l.Jm (A. 17) 

From these relations, the locations v.^ j + 1 and w^ of all the 
mass points at t = tj +1 can be determined. Knowing the new loca- 
tions of individual mass points, the increment in strain along the 
axis of the two-dimensional structure and the increment in curva- 
ture at each point of the structure can be determined. From this 
information the increments of axial force, N, and bending moment, 
M, may be calculated and the calculation cycle can be repeated 
for as many time intervals At as desired. These last two steps 
of the computation are discussed in the following section. 



A . 5 Strain Displacement Relations and Constitutive Relations 

In expressing the change in curvature in terms of the 

displacements of the mass points, an approximate scheme is used. 

The radius of curvature at point i is assumed to be the radius 

s t 

of the circle which passes through the mass points at the i-1 , 

i th , and i + l st stations. The curvature which is the reciprocal 
of the radius of curvature is gi^en by the following relationship: 


-AS,., ,i) (Ss.-AS^HSm - 


AS,. Wift 


-2 


(A. 18) 
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( A . 19 ) 




. + AS 



and 





\ ^ 



(A. 20) 


The change in curvature from the initial curvature is given by 



(A. 21) 


where ( R i ) q is the radius of curvature of the undeformed structure. 
The axial strain for the i tl1 interval can be expressed as 


€ 




— (AS 
(AS ^ 0 


(A. 22) 


where AS., is given by Eq. A. 13 and (AS ) is the length of the 
th io 

i interval at the original undeformed position. 

In the present development, the cross section of the two 
dimensional structure is replaced by a simplified model with an 
even number of concentrated flanges, separated by shear webs 
which cannot carry normal stresses and have infinite shear 
rigidity (Fig. A. 3). With this model, the stress and strain in 
the structure can be defined by the individual normal stress in 
tne N layers, invoking the assumption that plane sections remain 
plane throughout the response. The distance between flanges can 
be determined by one of two requirements: The first requires 

that the elastic bending stiffness of the model be equated to 
that of an ideal beam. If this is the case, then the following 


72 




defines the area and the distance between each flange: 




A = bh/Kl 

Cl = h / v/N 1 - i (A. 23) 


where 

b 

is 

the 

width 


h 

is 

the 

thickness 

and 

N 

is 

the 

number of flanges 


If, on the other hand, the model exhibits the same fully- plastic 
pure axial load-carrying ability, and equal fully-plastic pure 
moment-carrying ability as the actual structure, the following 
flange areas and spacing result: 

A - bh/N 

d = Vi/n (A. 2D) 

Note that as the number of flanges used to represent the 
cross-section increases, the two values for d coalesce. 

Using the assumptions of conventional beam theory, the 

section originally perpendicular to the axis of the structure 

remains perpendicular to the deformed axis. The normal strains 

in the upper and lower flanges can thus be expressed in terns of 

the axial strain and the change in curvature. It should be noted 

t h 

tnat the axial strain e. refers to the change in length of the 1 
link or the interval between the i-1 and the 1 station, while 
the change in curvature refers to that at the i Uj station. Strictly 
speaking, in determining the interaction between bending moment 
and axial force, the axial strain and the change in curvature 
should be evaluated at the same station. For example, the axial 
strain at the i th station can be obtained by the average of the 
strains at the two neighboring intervals, i.e., 


» 

i . 
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(A. 25) 


£ _ € l +\ - 6<i 

l^sWwn Z. 


It is believed, however, that for an analysis with a 
sufficiently small space mesh, the error introduced will be 
negligible when the calculation is made by using the strain of 
the i tVl link and the change in curvature at the i th station. 
Using N = 2 (2 flanges) to illustrate the following, the incre- 
ments of strain in the upper and lower flanges are given by 


AG 






(A. 26) 


and 


A6 i l jv, = < A -27> 

where the upper flange thickness station is located at C = r. 

In determining the increment of normal stress in the upper 
and lower fibers, the following trial and correction approach is 
used. For example, at time t. the upper fiber stress, o and 

J U i,j 

and the incremental strain, Ae , have been evaluated. A 

u i,j+i 

trial value of the fiber stress at tj + ^ is then computed based on 
the elastic stress-strain relation, i.e., 



J-m 



C 


U 




+ EA6 




(A. 28) 
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The quantity 


( 5u si+O t / «■. 

is then calculated and the actual value of the upper fiber stress 
at tj +1 is determined according to the following conditions: 



(A ^ 


s H • <\ 

~2 \ 1 ^ ^ 


- 


> i ; C Uiii „ = <T 0 

C o 


(A. 29) 


To calculate the axial stress in the lower flange, the 
corresponding equations can be obtained by replacing the subscript 
"u" in Eqs. A. 28 and A. 29 by the subscript and by setting 



Finally, when the normal stresses in both flanges have been 
determined, the axial force and bending moment can be obtained 
from the relations 
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The above discission of the calculation of axial forces 
and bending moments is based on the very simple model having a 
two-flange cross section. For a more accurate analysis, the 
cross-section can be approximated by N lumped flanges as shown in 
Fig. A. 3. The expressions for the axial force and the bending 
moment then become: 

Vii. " A Y. 

Mv (A. 31) 

Ad ^ 

*b=1 

As noted previously, various quadrature methods, such as 
Gaussian or Simpson, could be used to obtain equal accuracy with 
fewer terms (flange stations) required. If a quadrature method 
is used, there is no need to use the concept of the ideal-thickness 
model depicted in Fig. A. 3. 

A. 6 Remarks Concerning Strain-Hardening and Strain-Rate Effects 

In the previous discussion, the stress-strain relation is 
based on the assumption that the material behaves as an elastic, 
perfectly-plastic solid. The yield stress of the material is 
assumed to be unaffected by the strain rate. Engineering metals, 
in general, are characterized by the existence of strain-hardening 
in the plastic range, and the plastic behavior of some materials 
are highly influenced by the strain rate. In this section, brief 
remarks will be made concerning the modifications of the basic 
computing program to include the strain-rate and strain-hardening 
effects . 

The accommodation of strain hardening behavior is conveniently 
done by using the characterization of the constitutive behavior 
described, among other places, in Ref. 7. In this method, the 
stress-strain curve for a strain-hardening material under uniaxial 
stress, as depicted in Figs. A. 4a through A. 4c may be approximated 
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by straight-line segments, through the use of the mechanical 
sub-layer concept [15]. In that concept the material at any 
point is considered to consist of a number of equally-strained 
"sublayers" of elastic, perfectly-plastic material, each with the 
same elastic modulus, but with a different appropriately-selected 
yield stress. Thus, for example, tne yield stress of each of the 
m sublayers would equal: 

• (A. 32) 

t 

i 

i 

I 

* 3 ^ m = ^ 

where e, , e„ e are the strains at which each sublayer becomes 

1 d. m 

perfectly plastic, and these values represent the strain values 
at the straight-line-segment fitting points shown in Fig. A. 4c. 
Thus, for any value of strain, e, it is evident that sublayers 1 
and , for example, may be in the plastic range, while all of the 
remaining sublayers are In the elastic range; the stress value 
associated with each sublayer is defined uniquely by the strain 
history and the value of strain and strain-rate present. Taken 
collectively with weighting factors (to be defined later), the 
stress on the stress-strain curve defined by the sequence of m + 1 
straight-line segments at the given value of strain e may be 
expressed as 


Yv\ 

cy - Z CkCkU.) (a 3 

where m is the number of mechanical sublayers, and the weighting 
factor C k for the K th sublayer may readily be confirmed to be 
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where 


E K. ~ E K.+ \ 
E 


(A. 3*0 


c, 


E, - e 

I 

((Tvi “ 




(t= 'rn) (A. 31a) 


Trtv» 


and the e Jc , define the coordinates of the piecewise linear 
approximation as shown in Fig. A. 4c to the actual static stress- 
strain curve. Fig. A. 4c also illustrates the method used to 
approximate the material behavior at elevated temperatures, where 
a number of static stress-strain curves, one for each of several 
temperature levels, can be used to obtain a stress-strain curve 
at a desired (intermediate) temperature by linear interpolation. 

One of the simplest and most popular methods for approxi- 
mating the stress-strain behavior of a simple strain-rate dependent 
material is taken from Pef. 12. This method pertains to an elastic, 
perfectly-plastic solid whose uniaxial stress-strain curve is 
assumed to be affected by strain rate (e) only by a quasi-steady 
increase in the yield stress of the material compared with that 
for the static case (c ~ 0). The expression for yield stress o 

• y 

of this material at a strain rate e is given by the following: 



(A. 35) 


where a Q is the static yield stress of the material, and D and p 
are emirically-determined constants characteristic of the material. 
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Figure A. 5a illustrates schematically the uniaxial stress- 
strain behavior for a strain-rate dependent, elastic, perfectly- 
plastic material whose rate dependence is described by Eq. A. 35, 
while Fig. A. 5b depicts the corresponding behavior for a strain- 
hardening material which is represented by the mechanical sublayer 
model, where each sublayer has the same values for the strain-rate 
constants D and p. For this special type of rate-dependent strain- 
hardening material, the stress-strain curve at a given strain rate 
e is simply a constant magnification of the static stress-strain 
curves along rays emanating from the origin as shown in Fig. A. 5b. 
However, for strain-hardening material whose strain-rate behavior 
is not one of simple magnification, the strain-rate behavior can 
often be approximated adequately by employing appropriately 
different values of D and p for each sublayer; the resulting 
behavior is illustrated in Fig. A. 5c. 
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a) An Element, ds, of a Curved Deformed Two 
Dimensional Structure 



b) External and Inertial Loads Acting on the Element 
FIG. A.l SCHEMATIC OF STRUCTURAL ELEMENT 

kA 80 
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PIG . A. 2 


FREE bODY DIAGRAM FOR THE REPRESENTATIVE 
OF THE LUMPED- PARAMETER MODEL 


ELEMENTS 
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FIG. A. 3 MULTI -FLANGE REPLACEMENT FOR A BEAM OF 
RECTANGULAR CROSS SECTION 
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UNIAXIAL STRESS, o UNIAXIAL STRESS, 



r' 1 J . A . ^ 


A Li nOXirtATIun OF A UW1AX1AL 0 i Cu'aVl. 
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interpolated 
stress-strain 
curve for 
intermediate 
temperature 


c) Static Case For 3 Temperature Levels 


FIG. A. 4 


CONCLUDED 




FIG. A. 5 SCHEMATIC OF STRAIN-HATE DEPENDENT UNIAXIAL 
SiRESS-S'i HAIL CURVES 
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STRAIN, e 


c) More General Strain Hardening Material 
FIG. A. 5 CONCLUDED 
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APPENDIX B 


USER INSTRUCTIONS FOR THE JET 1 COMPUTER PROGRAM 
B.l Introduction 

This appendix presents the detailed information required 
to use the JET 1 program, from the punching of the input cards t< 
the description of a sample run wjth resultant output which can b 
utilized by the user for checking the adaptation of the program t> 
his computing facility. Included also are instructions for using 
the continuation feature, a partial list and explanation of the 
variable names used in tiie program, and the FORTRAN IV listing 
of the JET 1 program. 

b.2 Data Input Procedure 

B.2.1 Input Data Required 

The information needed to punch a set of data cards for 
a run is presented in a step-by-step manner below. The variables 
to be punched on the n^ 1 data card are outlined in a box; to the 
right is the format to be used for that card; and finally, the 
definition and limits for each variable are given directly below. 
This is done for each card in turn, until all are described. 

Cards 1 through 5 describe the ring geometry, the ring- 
model makeup, damping values to be used, and the program constants. 

^ Format 

N, NFL, NSPL, J PRI NT, J CYCLE, MORE, J START, JFD AMP, NTEMPSjNORA^E | (1015) 

N is the number of mass points used to describe the ring 

(see Fig. 1). This number must be even and cannot exceed 

100 . 

NFL is the number of flanges used to specify tne cross sec- 
tion of the ring. The ring's thickness-wise temperature 
distribution is also described by assigning a temperature 
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NSFL 

J PRINT 
JCYCLE 
MORE 

JSTART 

JFDAMP 

NTEMPS 

NORATE 


at each flange. NFL must be even and cannot exceed 10. 

equals the number of subflanges in the strain-hardening 
model for the ring material, and equals the number of 
coordinate pairs (o^e^) defining the polygonal approxi- 
mation of the stress-strain diagram (see A.*la in Appendix 
A); NSFL must never exceed five. 

Is the cycle number (for both artificial and real time) 
at which regular printing is to begin. 

is the number of program cycles between regular printout, 
(i.e., print every JCYCLE cycles). 

signifies that the run is a continuation run if it equals 
1. If the run is not a continuation run, set MORE = 0 
(see Subsection B.^i for more complete information). 

equals 0 tells the program that the initial dynamic 
response resulting from an imposed initial thermal stress 
distribution is to be damped out before real time begins 
and external forces are applied. If no initial damping 
is needed (as in the case when the ring is unheated) or 
desired, set JSTART * 1. 

is the maximum number of program cycles of artificial 
time allowed after damping of the elastic motion has 
begun (JFDAMP is the total number of cycles allowed, but 
it is tested only after plasticity is completed). If 
computer time is not limited, set JFDAMP equal to 9999. 

is the number of temperature levels at which material 
properties are given in data cards 13 through 16. NTEMPS 
must equal at least 1, and cannot be greater than 5. 

If NTEMPS = 1 (when the ring is at a constant temperature 
level) then Cards 6 through 9 and 11 must be left out. 

tells the program there are no strain-rate effects if 
it equals 0. If there are to be strain-rate effects, 
set NORATE = 1. 
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CARD 2 


Card 

R, B, H, RHO 


Format 

4E15.6 


R is the radius of the ring to the centroidal axis 

of the cross section in inches 

B is the width of the ring in inches 

H is the thickness of the ring in inches 

2 4 

RHO is the mass density of the ring material (lb-sec /in ) 
CARD 3 

Format 
4E15.6 


Card 


DELTAT, HALT1, HALT2 , TIMP 


DELTAT is the time interval per cycle to be used in the 

running of the program. As noted in Ref. 7, DELTAT 
cannot be chosen arbitrarily, but is subject to the 
following stability criterion: 

DELTAT should be chosen so that it is slightly less 
(about 52) than the smaller of the following two time 
increments ( AT) : 


AT 


Long 


NFL 


AS 


(e 1 +e 2 + +e nfl ) max 


(Bl) 


1/2 (AS) 


AT 


Lat 


V pfT (E l I l 


+ e 2 I 2 + +E NFL I NFL ) MAX 


( B2 ) 


where AT^ on g and AT^^ are the critical time increments based on 
the wave equation and the lateral bending equation, respectively. 




In general, different AT's will be calculated at each mass point 

location unless the temperature distribution is uniform around 

the circumference of the ring. The correct value of the critical 

time increment is the minimum value encountered on the ring. 

Thus, the maximum value of effective Young's modulus is used 

to calculate the critical time increments AT t and AT t . . 

Long L3X 

Note that AS is the link length, E^ = °]_ K ^ e i k at eac ‘' flange, 
p and H are the density and thickness of the ring, respectively, 
and I is the area moment of inertia of each Tlange about the 
centroidal axis of the ring's cross section divided by the 
ring-width B. The program will compute both A T Lon g and AT Lat 
and choose an appropriate value for AT, if the value for DELTAT 
is set equal to zero in Card 3:* 


HALT1 is the time in seconds at which it is estimated that all 
plastic work will have been completed, and damping 
can begin in the "artificial" time portion (JSTART = 0) 
of the program. 

If HALT1 is set equal to zero, a value for HALT1 will 
be calculated by the program based on the value of the 
period of the first mode of the ring. The time thus 
calculated tends to be quite conservative (longer than 
required). If HALT1 is set equal to - 1, the program 
will test the ring separation and start damping the ring 
motion when the ring's first-mode response has gone 
through a minimum and a maximum value of the ring sepa- 
ration. (Experience has shown that in most cases, all 
appreciable plastic work has been completed by the time 
the ring has undergone one cycle of maximum and minimum 
separation) . 


l 

The AT thus chosen by the program is printed out in the initial 
information printout of the output. 
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HALT 2 


TIMP 


CARD 4 


TBEGIN 

TFINAL 

AMP1 

T1 

f 

P 


applies to the real time portion (JSTART = 1) of the 
program, and it is the time in seconds required after 
externally-applied forces have stopped for plastic 
work to be completed (the amount required is added to 
TFINAL in the program) , HALT2 can be set equal to 0 or 
- 1, and the program will calculate HALT2, and test 
for the end of plasticity, respectively, as with HALT1. 

If no damping is desired, make HALT2 very large (e.g. 1.00) 

is the value of real time at which the impulsive load is 
applied to the ring. In most practical cases, TIMP will 
equal 0.0 seconds. However, in cases where the dynamic 
response resulting from the initial thermal stress is 
not damped out, it may become desirable to apply the 
impulsive load at some time greater than zero. 

The following card describes the time-varying triangularly 
shaped forcing function. 


Card 

TBEGIN, TFINAL, AMP1,T1 


Format 

4E15.6 


are the times (in seconds) which define the beginning 
and the end, respectively, of the complete triangular 
forcing function; i.e., the complete forcing function 
starts at TBEGIN and ends at TFINAL. If there is to be 
no forcing function during the run, set both TBEGIN and 
TFINAL equal to zero and set AMP1 and T1 also equal to 
zero. 


is the maximum (p^ak) value of the triangular shaped 
forcing function in pounds 

is the time at which the peak of the triangular shaped 
forcing function occurs. (See Fig. 4'. 
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CARD 3 


Format 
4E15.6 

HDAMP are the values of the damping constant to be used for 

FDAMP damping the ring dynamic response in the artificial 
and real time portions of the program, respectively. 

Care must be taken not to make the value of damping 
greater than the minimum critical value of the ring 
based on the minimum "effective" bending stiffness 
of the ring's cress section (see Subsection 2. 2. 2. 4). 

The program will calculate a correct value for damping 
in each case, if the respective input value is made 
equal to zero. The value thus calculated is printed 
out upon completion of the damping of the dynamic 
response. FDAMP is not used if there is to be no 
damping in the real portion of the run. 

TCOOL is the assumed overall temperature of the ring before 

the temperature distribution is applied. The difference 
between this temperature and the imposed temperature 
distribution is used to calculate the initial thermal 
stresses . 

TIMTOT is the maximum real time attained before the run is to 
stop; this stop must occur before damping is begun. 

It can be used to stop the program at a desired time 
in order to change the temperature distribution (see 
Subsection B . 4 ) . 

Cards 6 through 11 describe the temperature distribution 
of the ring (see Subsection 2. 2. 2.1). If NTEMPS on Card 1 
equals 1 (i.c., the ring has a uniform temperature dis- 
tribution), then skip to Card 10 ; Cards 6 through 9 and 
11 are to be left out. 


Card 

HDAMP, FDAMP, TCOOL, TIMTOT 


/ 
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CARD 6 


Card Format 

315 

LISTEM can equal 1, 2, or 3 depending on the method used to 

describe the ring temperature distribution. The three 
methods corresponding to the value of LISTEM are as 
follows : 


LISTEM, I RAID, ICIRC 


METHOD A, LISTEM = 1, the temperature corresponding 

to each flange in the ring will 
be read-in separately with input 
cards . 

METHOD B, LISTEM = 2, the temperature of each flange 

will be calculated using functions 
chosen in Cards 8 or 9 . 


METHOD C, LISTEM = 3, the temperature of each flange 

is found by the program from a 
curve of temperature vs distance 
from the outside surface measured 
parallel to the z axis. The curve 
is approximated by coordinates 
given in Card(s) 11. 


IRAID is used only if LISTEM = 2 (i.e., if Method B is used). 

If IRAID = 0, the temperature distribution through the 
thickness of the ring at 0 = 0 is read-in in Card 8. 

If IRAID = 1, the temperature distribution will be 
calculated using the following equation: (repeated 
from page 11 ) . 


T „ 2 T, „ 

T( K ) = U(K)- - ) - U(K)- - )+ T-, 

Yi 2 H 2 d 


( repeated ) 
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where To, Tl, and T2 are read-in on Card 9, H is the 

thickness of the ring, and ;(K) is the distance to 

t* h 

the K flange from the centroidal axis. 

ICIRC is used only if LISTEM * 2. 

If ICIRC * 1, the temperature distribution through the 

thickness, described previously 
using the value of I RAID, is 
constant around the circumference 
of the ring. 

If ICIRC = 2, the above temperature distribution through 

the thickness varies as a function 
of sin0 around the circumference 
of the ring as follows: 

T(8,K)*(T(0 ,K)-TC00L)Sin6+TC00L 

where T(0,K) is the temperature 
of the K th flange at 0 = 0 

TCOOL is the ambient temperature 
of the ring before it was heated. 

If ICIRC « 3, the temperature distribution through the 

thickness varies as a function of 
cos 0/2 around the circumference 
of the ring as follows: 

T( 0 ,K)*(T(0 ,K) -TCOOL) COS 0/2+TCOOL 

Cards 7a, b... are used only if LISTEM on Card 6 equals 1. 

Skip Card 7 if LISTEM does not equal 1. 


CARDS 7a, 7b , • • • • 


Card 


T( 1 ,1) , T( 1,2) , ..., 


T( I ,K) , . . . , T(N ,NFL) 


Format 

5E15.6 


9H 



T ( 1,1) is the temperature of the first flange at the 
first link. The first "flange" is on the 
inner face of the ring (see Fig. 2a). 

T( 1 ,2) is the temperature of the second flange at the 
first mass point. 

T(I,K) succeeding values of temperature are read, using 
1 as many data cards as are required, with five 
' temperatures on a card (except possibly the 
' last card) until all temperatures for NFL flange 
' at N links are read. 

T(N,NFL) 

If Cards 7 are used, skip to Card 12. 


Cards 8a, b are used only if LISTEM = 2 and IRAID = 0 on Card 6 
If these conditions are not met, skip Cards 8a and 8b. 


CARDS 8a, 8b 


Format 
5E15.6 

T(l,l) is the temperature of the first flange at 0 = 0. 
The first flange is on the inside of the ring. 

T(l,2) is the temperature of the second flange at 0 = 0 

T(1,K) reading of succeeding values of T(1,K) continues 

i 

\ until all temperatures for NFL flanges are read 
TQ^NFL) at 0 = 0. 


Card 

T( 1 , 1) , T( 1 ,2) , ..., T( 1 ,K) , ..., T( 1 ,NFL) 


Card 9 is used only if LISTEM * 2 and IRAID = 1 on Card 6. If 
th°se conditions are not met, skip Card 9. 
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CARD 9 


Card 


TZER, TONE, TTWO 


Format 

3E15.6 


TZER ■ 

TZONE 

TTWO 


are constant coefficients to be used in Eq. 1 on page 11 
These are used to describe the temperature distribution 
through the ring thickness at 0 = 0. If Card 9 is used, 
skip to Card 12. 


Card 10 is used only if the temperature of the ring is uniform 
(i.e., if NTEMPS = 1). 


CARD 10 


TCONST 


Card 


Format 

E15.6 


TCONST is the temperature of the uniformly heated ring in 

degrees. If a ring with no temperature effects assumed 
is being analyzed, set TCONST equal to TCOOL in Card 5. 
If Card 10 is used, skip to Card 12. 


Cards 11 are used only if LISTEM = 3 (Method C) on Card 6. If 
LISTEM does not equal 3, skip these cards. 


CARDS 11a, b, c, d, and e 


Card 


Format 


TPOINT(l), DPOINT(l), TP0INT(2), DP0INT(2) 


4E15.6 


TPOINT(l) V are the coordinates of the first point (where the 
DPOINT(l) 1 temperature at the outside surface of the ring 

(DPOINT(l) = 0) is given) on the temperature-versus- 
material depth curve as shown in Fig. 2C. TPOINT(l) 
and DPOINT(l) are in degrees and inches, respectively. 


i 

\ - f 

* i 


9b 





TP0INT(2) are the coordinates of the second point on the temper- 
DP0INT(2) ature versus material depth curve. 

Additional cards are punched until the required TEN coordinates 
approximating the curve are given. If a temperature is required 
for a depth greater than DPOINT(IO), the program sets the value 
of temperature at that position equal to TCOOL. 

This completes the description of the temperature dis- 
tribution of the ring. Cards 12 through 16, which follow, give 
the information needed to calculate the temperature-dependent 
material properties of the ring. As outlined in Subsection 2. 2. 2. 2, 
each flange is assigned values for material properties by the 
program based on a linear interpolation of curves of material 
"constant" versus temperature read on input cards. 


CARD 12 

Card Format 

TEA(l), TEA( 2) , ..., TEA(NTEMPS) 

TEA(l) is the lowest temperature level at which material proper- 
ties will be given. Ordinarily, TEA(l) will be "room 
temperature" and will equal TCOOL given on Card 5, but 
this is not required, and TEA(l) can be any value as 
long as it does exceed the lowest temperature encountered 
on the ring; otherwise an error message will result and 
the program will stop. 

TEA(2) is the next to lowest temperature level at which material 

l 

j properties are given. 

I 

TEA(NTEMPS) is the highest value of temperature at which material 
properties are given, where NTEMPS is given on Card 1 and 
is the total number of temperature levels given. NTEMPS 
cannot be less than 1 and not more than 5. TEA(NTEMPS) 
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must be equal to or greater than the highest temperature 
encountered on the ring; otherwise, an error message 
will result and the program will stop. If the temperature 
of the ring is constant, and NTEMPS on Card 1 equals 1, 
set TEA(l) equal to TCONST on Card 10. 


Card 13 


Card 

ALPH(l), ALPH( 2 ) , ..., ALPH( NTEMPS) 


Format 

5E15.6 


ALPH(l) is the coefficient of thermal expansion for the first 
temperature level given, TEA(l), on Card 12 (inches/ 
Inch/degree) 


ALPH( 2 ) is the value given for the second temperature level given 
(TEA( 2) ) . 

ALPH(NTEMPS) is the value given for the highest value of 

temperature given ( TEA (NTEMPS) ) . If ALPH is assumed 
to be independent of temperature, make all values 
required equal to the constant value since a value 
for each temperature level must be read by the computer. 


Cards 14 and 15 should be included only if NORATE given in 
Card 1 equals 1. If NORATE equals zero, skip to Card 16. 


CARD 14 


Card 

DEA(l), DEA( 2) , ..., DEA( NTEMPS) 


Format 

5E15.6 


DEA(l) is the value of the constant D used in the strain- 
rate formula 


o 


y 


i 




(B3) 
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for the first temperature level, where (D) = (1/sec), 

a is the rate dependent yield stress of subflange £., 
y l 

and a is the static yield stress of subflange J,, 

°l 

where a = E, c (see Ref. 7) 

°i 1 i °i 

DEA(2) is the value of the constant D for the second temperature 

I 

i level. 

i 

DEA(NTEMPS) is the value of the constant D for the highest 

temperature level. As for ALPH(NT), list NTEMPS values 
of DEA(NT) even though they may be all the same. 


CARD 15 


Card 


Format 


PEA(l), PEA( 2 ) , ..., PEA( NTEMPS) 


5E15.6 


PEA(l) is the value of the constant p used in Eq. B3 above 

for the first temperature level, where p is nondimen- 
sional . 


PEA(2) is the value of p for the second temperature levsl 

I 

PEA(NTEMPS) is the value of the constant p for the highest 
temperature level. A value of PEA(NT) must be given 
for all temperature levels, even though they may all 
be the same. 

The following card(s) must be included. They describe the material 
stress-strain curve for each temperature level. 


CARD l6aa 


Card 

EPS (1,1) , SIG( 1 , 1 ) , EPS( 2,1), SIG( 2,1) 


Format 

HE15.6 


K 
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EPS(l.l) l 
SIG(l.l) 


EPS( 2 ,1) j 
SIG( 2 ,1)J 


make up the first coordinate pair of strain and stress 
in the first temperature level, which is used to de- 
fine the polygonal approximation of the first tempera- 
ture level's stress-strain diagram (see Fig. A. 4a). The 
stress-strain diagram which these values, and those 
following, approximate, must be upwardly convex with 
nonnegative slopes. (e (£,NT) = in/in. and a (H,NT) ■ 
lb/in 2 ) 

make up the second pair in the first temperature level. 


Additional cards 16 ab and 16 ac are punched in exactly the same 
manner as Card 16 aa until the number of coordinate pairs equals 
NSFL punched on Card 1. The total number of coordinate pairs 
must not exceed 5 for any temperature level. Do not include any 
unneeded (blank) cards. 

Card(s) 16 is (are) repeated (16 ba, 16 bb...etc.) for each 
temperature level until the number of sets of cards equals 
NTEMPS (given in Card 1). The total number of sets of cards 
must not exceed 5. 

This ends the description of the ring and its temperature dis- 
tribution, the remaining cards complete the description of the 
external forcing functions. 


CARD 17 


IOTA 


Card 


Format 


IOTA, NV 


215 


can equal 0, 1, or 2, depending upon the distribution 
of the initial Impulse on the ring's circumference (see 
Fig. 3). 

If IOTA * 0 no impulse is to be introduced 
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If IOTA = 1 an impulse will be defined at pertinent 

mass stations by defining the appropriate 
radial and tangential components of the 
initial velocities of each mass point in 
Data Cards 18 (a, b, ). 

If IOTA = 2 a sine shaped initial velocity field, 
distributed over a specified number of 
mass points and oriented at a specified 
angle, tilt or 6 (see Fig. 3b), to the 
ring tangent is to be defined in Data Card 
19. 

NV 

If IOTA =1 NV is the total number of masses for 
which the velocity components are to 
be specified. 

If IOTA =2 NV is not used and can be set = 0, 

If there is to be no impulse in the run, set IOTA = 0 and 

NV = 0 and skip to Card 20. 

Card(s) 18 is (are) included only if IOTA = 1 in Card 17. 


CARD 18a 



Card 


Format 

(I5.2E15.6) 


MASSNO is the station (mass point) number at which the 
velocity components VRAD and VTAN are to be 
applied. 


VRAD , VTAN are the radial velocity and the tangential velocity, 
respectively, applied to MASSNO (inches/sec). VRAD 
is positive directed out, VTAN is positive directed 
counterclockwise. (see Fig. 3a) 
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* 

I 


Additional cards (18b, 18c ...) are punched in exactly 
the same manner until the total number of cards specifying the 
initial velocity equals NV given in Card 17. It is not necessary 
to list those mass points which have zero initial velocity. 

Card 19 is included only if IOTA = 2 in Card 17. 


CARD 19 


Card 

MASSES, MSTART, VEEZ , TILT 


Format 

(2I5.2E15.6) 


MASSES is the number of masses over which the sine shaped 

impulse is to be distributed. This number must be odd . 

MSTART is the number of the first mass in the group over which 

the sine shaped impulse is distributed, i.e., the impulse 
is applied to mass points (MSTART), to (MSTART + MASSES - 1) . 


VEEZ is the peak value of the sino-shaped impulse, in inches 
per second. 

TILT is the angle at which the impulse is applied to the ring 
referenced to the counter clockwise directed tangent. 
(See Fig. 3), in degrees. 


If there is to be no time dependent forcing function during 
the run, these cards will be the last required in the input deck. 

The last card specifies the sine-shaped time varying 
force applied to the ring, if one is present (see Fig. *1). In 
all cases, the time history of the total force applied is a 
triangular shaped pulse, with the value of the force being zero 
at TBEGIN and TFINAL specified on Card 4, and the maximum peak 
value and the time at which it occurs is also specified on 
Card JJ. The force is distributed over a specified number of 
masses in the shape of a half-sine wave, and there is a provision 
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for specifying the velocity at which the pressure pulse travels 
along the ring circumference if desired. The direction of the 
force relative to the local tangent is also specified. The data 
required to specify the loading is described below. 


CARD 20 


Card 

NSTAT, MASSN, RPM, ANGL 


Format 

(215.2E15.6) 


NSTAT is the first mnss point at the beginning of the forcing 
function (see Fig. 4). 

MASSN is the number of masses over which the forcing function 
is distributed. This must be odd. 

RPM is the revolutions per minute, positive in the counter- 
clockwise direction, at which the forcing function is 
traveling. If the forcing function distribution is 
stationary with time on the ring, set RPM * 0.0. 

ANGL is the angle between the force vector and the clockwise 
directed tangent vector (see Fig. 4) , in degrees. 


B.2.2 Input for Special Cases of the General Stress- 
Strain Relations 

In the following, which in each case must apply to the 
ring as a whole, the specific input data for three special cases 
of the general elastic, strain-hardening constitutive relation 
handled by the computer program are given. Only the relevant 
data are noted: 

( 1) Purely Elastic Case 

Set NFL = 2, NSFL = 1 on Card 1 and make EPS(1,NT) 
and SIG( 1 ,NT) on Card(s) 16 sufficiently high so 
that no plastic deformation occurs; for example. 
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EPS ( 1 ,NT ) = 1.0, SIG( 1 ,NT) = E(NT) where NT is the 
particular temperature level being described. 

(2) Elastic, Perfectly-Plastlc Case 

Set NSFL » 1 on Card 1 and make EPS(l.NT) » SIQ(1,NT)/ 
E(NT) on Card(s) 16. 

(3) Elastic, Linear Strain-Hardening Case 

Set NSFL - 2 on Card 1 and set EPS(1,NT) ■ SIG(1,NT)/ 
E 1 (NT) also EPS(2,NT), and SIG(2,NT) on Cards 16 
are taken sufficiently high in order to avoid plastic 
deformation in the second subflange (see the descrip- 
tion of the strain-hardening model in Ref. 3); for 
example, EPS(2,NT) * 1.0 and SIG(2,NT) - 1 - EPS 

( 2 , NT ) /E ( NT ) + SIG( 1 ,NT) , where E (NT) are the 
P P 

slopes of the segments of the stress-strain curves 

at different temperatures in the plastic range. 

B.3 Output 

The printed output begins with a partial reiteration 
of the program input which identifies the problem solved. The 
information presented varies with the type of problem analyzed. 

An example output is presented at the end of this Appendix in 
Subsection B.7. 

After the initial printout has been completed, the 
following information is printed out (this is done before the 
first cycle (J - 0); after cycle JPRINT has been completed; and 
at every JCYCLE cycles thereafter, for both artificial, JSTART ■ 0, 
and real, JSTART * 1, time regimes): 

J » [J] TIME » [TIME] SEPARATION (IN.) = [SEP] 

TOTAL ENERGY INPUT INTO RING - [TOTWRK] (IN-LB) 


INITIAL ELASTIC ENERGY = [ELAMAX] (IN-LB) 

IMPULSIVE ENERGY INPUT = [WORKIM] (IN-LB) 

EXTERNAL FORCE INPUT = [TPWORK] (IN-LB) 

TOTAL ENERGY IS NOW DISTRIBUTED AS FOLLOWS: 

KINETIC ENERGY OF RING = [RINGXE] (IN-LB) 

ELASTIC ENERGY = [ELASTW ] (IN-LB) 

DAMPING ENERGY = [TDWORK] (IN-LB) 

PLASTIC WORK = [PLASTW] (IN-LB) 

THE FORCE RESULTANT ACTING ON THE RING DURING THIS CYCLE IS [AMP] 

I V W N M EPSI EPSE YIELD 

1 ••• ••• ••• . » « . . . . . • • • • • ...... 

2 

<— « . . . « . » « « ••• at*** » « . « . «.«.«« 


1 ' • • • . . « . . . • • • < • * • • « « . « . .«««.« 

where 

J = computation time cycle number 
TIME = Elapsed time corresponding to the end of cycle J (sec) 
SEP = the distance from the front of the ring to the back 
as approximated by the difference in W between mass 
points 1 and N/2 (inches) 

TOTWRK = Total work done by the initial impulsive and the forcing 
function added to the initial elastic energy present 
in the entire ring due to the imposed thermal stresses 
(in-lb). TOTWRK includes both the internal energy of 
the ring, and the energy used to accelerate the "rigid 
body" mass of the ring in the inertial coordinate 
system. 

ELAMAX = The elastic strain energy stored in the entire ring at 
TIME = 0 

WORKIM = Total work done by the initial impulsive loading on 
the entire ring in the inertial axis system 


105 


TPWORK = Total Internal work done by the external forcing 
function on the entire ring 

RINGKE ■ Kinetic energy of the entire ring in the inertial 
axis system 

ELASTW ■ Current elastic strain energy stored in the entire 
ring 

TDWORK ■ Internal energy removed from the ring by artificial 
damping 

PLASTW - Plastic work done on the entire ring (in-lb) 

AMP ■ Amplitude of force resultant acting on ring during 
current cycle 

I ■ Mass point station number 

V ■ The y-location of the ith mass point* (in) 

N - Axial force in the ith link (lb) 

M ■ Bending moment M 1 at the ith mass point station (in- lb) 
EPSI ■ Strain on the inner surface of the ring at the ith 
mass point station 

EPSE * Strain on the outer surface of the ring at the ith 
mass point station 

Asterisks are printed below YIELD whenever plastic 
yielding occurs in any of the flanges at that station. 

At the end of each run in which real time has been 
used, a statement FIRST YIELDING AT TIME ■ ... is printed out. 

This statement gives the time of the first plastic deformation 
ever to occur during the response. At that time, a printout of 
the above-illustrated kind is made (independent of the values of 
JPRINT and JCYCLE). If the response is purely elastic, no such 
statement or printout is made. 


I 

The coordinates V and W of the mass points are measured from the 
original, time ■ zero, center of mass position of the ring. 
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B.A Continuation Runs and Method to be Used for Varying Ring 
Temperature Distribution with Time 

Included in the output of each completed run is a set of 
continuation cards which contains all of the Information that 
is necessary to continue the same run, if desired, to obtain 
further time-history information with or without a different 
temperature distribution. Each completed continuation run also 
produces a continuation deck, so the process may be continued 
indefinitely as long as desired. 

In general, there are three ways in which a JET 1 run can 
be completed. The first is to let the ring's dynamic motion be 
damped out in real time and the program will terminate itself 
when the ring is fully damped. T.ie second is to specify JSTART = 0 
for artificial time and make TIMTOT = 0.0. The motion of the 
ring due to the imposed thermal stresses will be damped out and 
because TIMTOT = 0, the run will terminate at real time equal zero. 
The third way is accomplished by specifying TIMTOT and HDAMP, 
where HDAMP is some time greater than TIMTOT (say 1.0 sec) and 
TIMTOT is the real time when the program should stop. 

The third way of completing a run is the most useful if 
one desires to change temperature each time using the continuation 
run feature, since the stopping time is specified. However, all 
three methods yield a continuation deck and any of these can be 
continued if desired. 

It should be noted that all continuation runs are made 
using real time (JSTART is set equal to 1 in the program for a 
continuation run) since no damping should be allowed in the 
middle of a run. 

To continue a run, the input data should be submitted 
as follows: 
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Card 


Contents 


1 


N, NFL, NSFL, J PRINT, JCYCLE, 
v — J L 4 I 

s ame T 


MORE, JSTART, JFDAMP , NTEMPS , 

A 1 A A 


NO RATE 

4 


same 


determined by 
user 


same 

same (set * to 1 in program) 

Nonzero positive Integer 
(e.g., original run number) 


same 


New first print cycle 


2 Same 

3 DELTAT, HALT1 , HALT2 , TIMP 

| * 1 t 

same same 

May have to be changed 

If continuation run includes a new temperature distribution, 
then DELTAT may have to be changed; if DELTAT is set equal 
to zero, program will calculate an acceptable value. 

4 Same as before, (time history of the applied forces occurring 
before, during or after start of continuation run is incon- 
sequential) . 

5 HDAMP, FDaMP, TCOOL, TIMTOT 

♦ 

i 

May have to be changed 

same 

May have to be changed if temperature changes. 

Program will calculate correct value if set equal to 0. 

Same (not used) 



M 

"I 

1,-4 f 

I 
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6 

7 

8 

9 


Are used to describe the temperature distribution on the ring, 
and can be altered as desired to describe the new temperature 
if desired. If temperature does not vary, leave those cards 
used unchanged. 


"J 

12 . 

13 

14 

15 

16 . 


These cards describe the material properties of the ring, and 
these should be left unaltered. Care must be taken, however, 
to assure that no new ring temperatures are out of the bounds 
given for the material properties. 


* — Put continuation cards here 


17 ' 

18 

19 

20 


Same as before 


B.5 Partial List of Variable Names Used in the Program 


SYMBOL 

DESCRIPTION 

ADDIT 

Used in KOOLIT to find average value 
of SEP over 100 program cycles 

ADELT1 

Equals 360/N 

ADELT2 

Equals 180/N 

AFL 

Area of each flange in the ring 

ALPH(NT) 

Input quantities of thermal expansion 
coefficient vs temperature 

ALPHA( I ,K) 

Thermal expansion coefficient of the 
material in the Kth flange at the Ith 
mass station 


ft 

I 
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p 


AMP 

AMPER 

ASFL(L,K,I) 

ASTER 

AVE 

B 

BIGKE1 

BIGKE2 

BIGM(I) 

BIGN(I) 

BLANK 

BUGGER 

C6 

CHNGM 


CHNGMZ 


COST(I) 

D(I,K) 


Value of the resultant total force acting on 
the ring at a particular time, pounds 

Equals DAMPER/DELTAT 

Area of the Lth subflange in the Kth 
flange at the lth mass station 

Equals an asterisk when printed in "A" 
format 

Average value of SEP over 100 time cycles 
in KOOLIT 

Width of ring 

Values of ring kinetic energy at two 
consecutive peaks 

Bending moment at the lth mass station 

Axial force at the lth mass station 

Equals a blank space when printed in "A" 
format 

Equals (DELTAT) 2 /PTMASS 

Equals 1.0/[D(I,K)»DELTAT*E(1,K,I) ] 

Change in momentum of ring caused by the 
external applied forces during the current 
run 

Total lateral change in momentum of ring 
caused by the external applied forces 
during last (continued) run 

Cosine of the angle the lth link makes with 
the y-axis 

Constant used in the strain-rate formula 
for the Kth flange at the lth mass station 
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DAMPER 
DDS ( I ) 
DDTH(I) 


DDV 

DDW 

DEA(NT) 

DELLON 

DELLAT 


DELTA 


DELTAT 

DELR 


DELV 

DELW 


DFY(I) 

DFZ(I) 

DHALF 


Value of damping coefficient used to damp 
out elastic motion of the ring 

Circumferential change in length of the 
Ith link during the Jth cycle 

Incremental change of the angle between the 
Ith and the (I+l)th link during the Jth 
cycle, plus if ring bends to increase ring 
curvature 

Elongation of the Ith link in the horizontal 
(y) and vertical (z) direction, respectively, 
during the Jth cycle 

Input quantities of constant used in strain- 
rate formula vs temperature 

Calculated values of DELTAT based on wave 
equation and lateral bending equation, 
respectively 

Interim value of depth of Kth flange from 
the outer surface of the ring measured 
parallel to the z-axis 

Time interval per program cycle 

Interim value of change in distance each 
mass point moves during first cycle after 
impulse 

Interim value of change in V(I) and W(I) 
due to impulsive loading during first cycle 
after impulse 

Damping forces acting on Ith mass in hori- 
zontal and vertical directions, respectively 

Distance between flanges in the ring divided 
by two 
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DIAM 

DPOINT(J) 

DS( I ) 

DSN 

DSZ 

DTH(I) 


DTX(I) 


DV(I) 

DW(I) 

DWCG 

DWORK 

E(L,K,I) 

EAVEB 

EAVET 

ELAMAX 


Calculated value of ring diameter 

Input value of depth on curve of temperature 
vs depth for Method C 

Current length of Ith link 

Total stress on the Xth flange at the Ith 
mass due to both axial and bending strain 

Initial link length 

Total link bending angle (curvature) summed 
from time = 0 between the Ith and the 
(I+l)th links 

Change in angle the Ith link makes with 
the horizontal from one time cycle to the 
next. Positive if link rotates counter- 
clockwise . 

Incremental change in position of the Ith 
mass point in the horizontal (y) and 
vertical (z) direction, respectively, during 
the Jth cycle. 

Shift in position of CG of the ring in the 
vertical direction due to the initial 
impulse 

Work done by damping forces during the Jth 
cycle 

Young's modulus of the Lth subflange, in 
the Kth flange, at the Ith mass station 

Test values of effective cross sectional 
Young's modulus for bending and tension, 
respectively 

Initial elastic energy stored in ring due 
to initial temperature distribution 


ELASTW 

EMAXB 

EMAXT 

EMINB 

EPS(L,NT) 

EPSI(I) 

EPSE(I) 

EPSIL(L,K,I) 

ERTIA 

ES 

ET 

FACTOR 

FDAMP 

FN 

H 

HALT 


Total elastic energy present In the ring 
during the Jth cycle 

Maximum values of effective Young's modulus 
for cross-sectional bending and tension, 
respectively 

Minimum values of effective Young's modulus 
for cross-sectional bending and tension, 
respectively 

Input quantities of absissa of stress-strain 
curvps for the Lth subflange varying with 
temperature 

Strains on the inner and outer surfaces 
of the ring, respectively, at the lth 
mass station 

Calculated value of absissa of the stress- 
strain curve for the Lth subflange in the 
Kth flange at the lth mass station 

Used in TEMPUS to calculate the maximum 
and minimum value of effective cross- 
sectional Young's modulus for bending 

Current values of strain in the outer fiber 
due to elongation and bending, respectively 

Dummy variable used to interpolate temperature 
dependent material constants 

Value used for damping real time elastic 
motion 

Axial force acting on the Kth flange 
Thickness of the ring 

Calculated value of ring's first elastic 
mode period 
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HALT1 

HALT2 

HD AMP 

HHALF 

HSQU 

I 

II, 12 


ICIRC 


IMP 

IOTA 

IRAID 

J 

JBEGIN 

JCYCLE 

JFDAMP 

JIMP 

JMIN 


Input values of ring's first elastic mode 
period used for artificial and real time 
portions of the run, respectively 

Value used for damping artificial time 
elastic motion 

Half the thickness of the ring 
Thickness of the ring squared 
Mass subscript 

The mass station numbers through which a 
given value of impulse-induced velocity 
acts 

An input quantity which specifies what the 
circumferential distribution of the tempera- 
ture is to be 

A variable used to limit the calling of IMPULS 

An input quantity used to specify the type 
of initial impulse 

An input quantity used in specifying radial 
distribution of ring temperatures 

Current cycle number 

Cycle number during which the triangular 
forcing function begins to act 

Printout will occur every JCYCLE cycles 

Used to limit running time in the artificial 
time portion of the run when desired 

Used in STOP to limit initialization 

Cycle number at which minimum separation 


o -jcurs 


JPRINT 

JSTART 

JUMP 

JUSTPR 

JZ 

K 

KOOL 

L 

LIMIT 

LINK 

LISTEM 

LOAD 

MAB 

MAXI 

MAX2 


Denotes cycle at which first printout 
should start 

Input value which tells program whether 
ring motion due to initial thermal stresses 
will be damped out before run is to begin 

Indicator which tells when ring reaches 
first peak separation in KOOLIT 

Used to call PRINT after RECORD is called 

Final program cycle number for last 
(continued) run 

Subscript referring to flange number. First 
flange forms inside of ring 

Used in KOOLIT to limit initialization 

Used as a subscript for the subflanges 

Dummy variable used in IDENT to printout 
existing temperatures 

Takes on values of 1 through 5 to denote 
which stage program has completed for 
printout purposes 

An input quantity which specifies which 
method will be used to specify ring tempera- 
tures 

Equal 1 means forcing function is acting 
Equal -1 means forcing function is not 
acting 

Indicator, tells when ring separation changes 
direction of travel in KOOLIT 

Used to identify first and second kinetic 
energy peak in STOP, respectively 
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MDET 

MP 

MORE 

MPUNCH 


MREAD 


MWRITE 


MYIELD 

N 

N1 

NFL 

NFL2 

NHALF 

NHALF1 

NHIT 

NORATE 

NSFL 


Both quantities are used to round-off 
calculated value of DELTAT 

An input quantity used to signal a continua- 
tion run 

The output tape unit for punching output 
quantities; this must be assigned a number 
(in MAIN) according to the user's computing 
facility 

The input tape unit name; this must be 
assigned a number (in MAIN) according to 
the user's computing facility 

The printed output tape unit name; this must 
be assigned a number (in MAIN) according to 
the user's computing facility 

Cycle during which the first yielding 
occurred 

Total number of mass points in the semiring 
Equals N 

Number of flanges in ring 
Equals NFL/2 
Equals N/2 
Equals NHALF+1 

The last mass station acted upon by the 
initial impulse 

Input quantity indicating whether strain- 
rate effects are to be included or not 

Number of subflanges in each flange 
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NTEMPS 


NULLIT 

NV 


NYIELD 

OLDT(I,K) 


P(I,K) 

PASTKE 

PEA(NT) 

PFY(I) 

PFZ(I) 

PIE 

PLASTW 

PLEN 

PTMASS 

PWORK 

Q( I ) 


An input quantity which specifies the 
number of material property groups to be 
read in for interpolation in HEAT 

Used in MAIN as an indicator when ring has 
been completely damped. 

Number of ranges of velocity used to express 
the initial impulse distribution when 
IOTA = 1 

A dummy variable which calls PRINT when 
yielding first occurs 

Temperature of the Kth flange at the Ith 
mass station during the last (continued) 
run 

Constant used in the strain-rate formula 
for the Kth flange at the Ith mass station 

Ring kinetic energy from previous cycle 

Input quantities of constant used in the 
strain-rate formula vs temperature 

External forces acting on Ith mass segment 
in the horizontal and vertical directions, 
respectively 

Ecur.ls 3. 1 **159265 

Total plastic work done up to the Jth cycle 
Duration of the forcing function 
Mass of each mass point 

Wotk done by the external forces during the 
Jth cycle 

Shear force acting at the Ith mass station 
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R 

RADIAN 

RPLANJ(K) 

RHO 

RIN 

RINGKE 

RVEL 

SEP 


SEPLAS 

SEPMIN 

SIG(L,NT) 


SICMA*L,K,I) 


SINT(I) 

SINTI 

SMIN 


Distance from the center of the ring to its 
undeformed centroidal axis 

Equals 57.2957795 

Radius from the ring center to the Kth 
flange 

Density of ring material 
Inner radius of ring 

Current value of the kinetic energy in the 
ring 

Used to calculate impulsively imparted 
radial velocity of the mass 

Approximate separation distance between the 
front and back of the ring after the Jth 
cycle 

Previous cycle value of SEP 

Minimum and maximum values of SEP, respec- 
tively, for 100 cycle intervals 

Input quantities of ordinate of stress- 
strain curves for the Lth subflange varying 
with temperature 

Calculated value of ordinate of stress- 
strain curve for the Lth subflange in the 
Kth flange at the lth mass station 

Sine of the angle the lth link makes with 
the Y-axis 

Interim value of SINT(I) 

Minimum separation between the front and 
the back of the ring 
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SMIN 

SN(L,K,I) 

SNY 

SNZ(L,K,I) 
T ( I , K ) 

T1 

TBEGIN 

TPINAL 

TCONST 

TCOOL 

TDWORK 

TEA (NT) 

THETA 

TIME 

TIMEZ 


Minimum separation between the front and 
the back of the ring 

Stress on the Lth subflange in the Kth 
flange at the lth mass station 

Yield stress taking strain-rate effects 
into account 

Yield stress of the Lth subflange in the 
Kth flange at the lth mass station 

Temperature of the Kth flange at the lth 
mass station 

Times at which the forcing function reaches 
its peak value 

Times when the forcing function starts and 
stops acting, respectively 

An input quantity read in TEMPS when 

NTEMPS = 1. Equal to constant value of ring 

temperature 

Ambient temperature of total ring before 
heating (undeformed state) 

Current total energy removed from ring by 
artificial damping 

Input quantities of temperature for each 
NTth level 

Angle the lth link makes with the y-axis 
(see Fig. 1 ) 

Current time 

Final time at end of last (continued) run 
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TIMP 

TIMTOT 

TMIN 

TESTKE 

TOTWRK 

TPOINT(J) 

TPWORK 

TZER, TONE, 

TZFORS 

V(I), W(I) 

WORKIM 

YIELD(I) 

ZETA(K) 


Time of occurrence of impulse loading for 
real time only (JSTART = 1) 

Real time at which run is to stop 

Time at which minimum separation occurs 

Maximum kinetic energy that ring can possess 
before damping multiplyed by .001 

Total energy input to ring 

Input value of temperature on curve of 
temperature vs depth for Method C 

Current total work done by external forces 
on the ring 

TTWO Input quantities used to define radial 
distribution of temperature 

Sum of all the forces on the ring up to the 
present time 

Horizontal and vertical distances from the 
relative axis center to the Ith mass point 

Energy contributed to the ring by impulse 

Controls whether a blank or an asterisk is 
printed, according to an elastic or a 
plastically-strained flange condition, 
respectively 

Distance from the Kth flange to the ring's 
cross-section center of gravity 
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B . 6 FORTRAN IV Program Listing fr~ JET 1 

The following program and subroutines are listed in this 
subsection in the following order: 


1 

2 

3 

14 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 


JET 1 Main Program 

INPUT 

INIT 

TEMPS 

HEAT 

TEMPU3 

I DENT 

IMPULS 

PREZZ 

CYCLE 

STRAIN 

STRESS 

EQUIL 

KOOLIT 

STOP 

RECORD 

PRINT 

FINAL 
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C JET 1 VAIN PROGRAM 

COMMON AOELT 1 .ADELT 2 . AFL ♦ ALPHA t AMP . AMPER » ASFL »B I GKE 1 .BIOKE2. 

IB I GM.R I G\. BUGGER. COST OAMPED. DAMPER .DELLJN.DELLAT » DEL TAT .DD 
2S.DDTH.DFY »DF7 » DhALF »D »DS » DSZ »DTH »DTX »DV *Da » DwCG .DWORK » E » EM 
3 AXR »FMAX T # EM I NR » E V I NT • EPS I . EPSE . ERT I A .EXTRA , tPS I L . FDAMP iG.H 
4AL T .HAL T 1 .MALT2 .HDAMP .-tHALF »HSQU»OLDT .P.PASTKE • PF Y tPFZ.PIEt 
5PT M ASS »P a'OR< »Qr RADI 4 '. »RING<E. RVELZ.SEP.ScPLAS.SE PM IN. SEPMAX.SIGM A 
6 » S ! NT » C v AS»i ♦ S’*' I N »S\ • SNZ • T . TDWORK . T I ME .TPwGRX . TYVE . TZ FORS . V . THETA , 
7W.ZEIA. / r O?S .tmin.AVl.TOTXE .PLASTW » ELAVAX » WORK I M .ELASTW » TOTWRK » 
3CHNG V Z . CHNGM . T I MEZ • T I "YLD 

CC'*MON A L 3 H . A '•* P 1 ♦ A V P 2 . B. CONVRT . DEA »D I AM . EPS »H .PE A »P I . P 

1 1 5PR » PR .R * RHO ♦ S IG .SLOPE . SW I TCH » T 1 « T 2 . T9EGI N . T CONST » T COOL . TE 
2 A,Tr I \AL. TI*/d,tR I vp.TZER. TONE. TT WO. TZ. YIELD. TIMTOT 
C INTEGER CC vv ON 

COMMON I C 1 RC . I*'P . IOTA . I RA I D . J . JCYCLE . JFDAMP • J I MP » JM I N . JOLT . I 2 » 
i JPR IN T.JSTART .JTOTAL »KOOL .LINK. LISTED, LOAD .MORE .MPUNCH.MREA 
2D.MWR ITf .VYIELD.N.NFL.NFL2.NHALF.NHALF1 . NL I M .NSFL . NTEMPS . NU 
3 L LIT* N/.NYIELD.N1. NEXT. NORATE. N GIVEN. NREAD.LASTPR.JQLT2 .JBEGIN. 

4 JU STPR .JZ 

DIMENSION AL Ph { 5 ) .ALPHA ( 101.10) . ASFL ( 5 . 10 » 10 1 ) »B I GM ( 10 1 ) . B IGN ( 

1101 ) .COST (101). 0(101. Id. DDS(lOl) .DDTH( 101 1 .DEA (5 ) ,DFY ( 101 ) 

2 .DFZ1 101 ) .DS ( 101 ) »DTH( 101 ) »DTX( 101 ) .DV( 101 ) »DW( 101 ) .E (6.10.101 ) .E 
3°S (5.5) »E D SI (101) .EPSE (101) .EPS I L ( 5 * 10 » 101 ) .EXTRA ( 100 ) , G ( 101 > »N 
NEXT ( 15 ) .CLOT ( 101.10) .P( 101. 10) .PEA( 10) * P c Y ( 101 ) »PFZ( 101 ) »Q( 101) . 
5RVFLZ (1011.SIG15.5) .SIGMA (5.10.101) »SI\T( 101 ) .SMASH ( 101 ) »3N( 5.1 
6C . 101 J .SNZ (5.10.1C1 ) .T(101*10) • TF A ( 5 ) »V( 101) »W( 101) .YIELD(lOl) »ZE 
7TA ( 10 ) 

MREA') = 5 
MX R I T E = 6 
VPUNCH=7 
CALL INPUT 
NPRINT =JP9INT 
KOCL=0 
NY IELD=0 
CALL TEMPS 
CALL HEAT 
CALL TEMPUS 
DC 1 I = 1 • N 
DFY( I )=0.0 
P p Y{ I )=C.O 
D p Z ( I 1=0.0 
PFZ( I )=0.0 
S V ASH( I )=0.0 
1 CONTINUE 
T Z FOR S=G » 0 

rugger=deltat**?/ptmass 

C CONTINUATION BRANCH 

IF (MORE) 9 .9. A 
6 CALL FINAL 

GO TO 10 

C INITIALIZATION SECTION 

9 CALL INIT 

10 ELASTrO.O 

DO 13 1 = 1. \1 
DO 1? K = 1 » NF L 
DO 11 l = 1 » NS P L 

C INITIALIZE THERMAL STRESSES 

SM L.K. I )=S\(L.K. I ) -E ( 1 .<» I ) * ALPHA ( I ,< ) <• ( T ( I .O-OLDT !!.<)) 

I p (MORE. GT. 0.0) ELAST=ELAST+SN(L.X. I ) ** 2* ASFL ( L . X . I ) / E ( 1 . < . I ) 

11 COMINJF 
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non 


1? CONTINUE 
13 CONTINUE 

IF {'.‘ORE .GT.0.0) ELAVAX=ElAVAX+ELAST*DSZ-lLAST* 

ivp = 0 

CALL I V P U L 5 
CALL I DENT 
I-(JSTART) 14.1A.29 

ARTIFICIAL TIME r OR DAMPING RING MOTION DUl TO INITIAL THERMAL G 
1 A I r ( hALT 1 ) 16.15*16 

CALCULATE CONSERVATIVE ESTIMATE OF TIME DEEDED FOR plasticity to 
15 hAlT=?.*P IE*R**2* SORT ( 3.*RHO/E^IN9 ) /H 
H A L T 1 = HAL T 
1 A L I N < = 1 

CALL RECORD 
BUGGER® BUGGER/ 2 • 

CALL CYCLE 
PUC-GF.R = BUGGER*2 • 

1 7 CALL CYCLE 

I c ( HALT 1 ) IP. 15*19 

TEST SEPARATION PEAKS FOR END OF PLASTICITY 
1 ft CALL KOCLIT 

halt i=halt 
I F ( HALT 1 ) 17.17.20 

19 I f | HALT 1 —T I V E ) 20.20.17 

c plasticity is considered over 

20 LINK®? 

call record 

C DAVPING OF ELASTIC MOTION STARTS HERE 

I f { hDAMP ) 22,22.21 

21 DAVPERsHDAVP 
GO TO 23 

C CALCULATE DAMPING factor 

2? DAMPEP = PIE*H*9*0.flO*SQRT(EMINT*RHO) /NhALF 
23 JI^p=0 

AVPER=DAMPER/DELTAT 
2A CALL CYCLE 
CALL STOP 

I c (JFDAVM.LT. J) GO TO 26 
IF (NULL I T.LE .0 ) GO TO 2 A 

c elastic motion has ceased 

25 L I NK= 3 
CALL RECORD 

26 J=-l 
JSTART® 1 

T I vf = 0 • 0 
MY IFLD=0 
DAMPER=0 . 0 
AVPER=0.0 
TDWORK=0.0 
PL ASTW® 0 . 0 
DO 2 7 I = 1 » N 
DFZ ( I 1=0.0 
DFY( I 1=0.0 
7 ~> CONTINUE 

IF (TIVTOT.LE.0tC) GO TO 23 
L I N < = * 

CALL RECORD 
5 W I N ® "* I AM 


RE oic: 
Cc. AGE 
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n n o 


TV If >4=0. 0 
JDR I\T = \PW I\T 
(-0 TO 7 9 

2 P LINK = 4 

CALL RECORD 
CALL FI\AL 
CALL EXIT 

REAL tive STARTS HERE 

29 IPIHALT2) 31.30.31 

CALCULATE CONSERVATIVE ESTIVATE OF TIME NEEDED FOR PLASTICITY TO CEASE 

30 HALT=2.*PIE*R* 2* SQRT(3»*RH0/E V INB)/H 
‘-•ALT 2 =HAL T 

31 I- (MORt.EU.l ) 00 TO 32 
RuGGER = B’jGGEP/2 • 

CALL CYCLE 
BU iSER = BUGGER*2. 

32 CALL CYCLE 

I F ( riVE.GE.TIMTOT) GO TO 42 

33 IF ( { TIME.LT.TI'/P) ,0R. ( TIME.LTgTFINAL) J GO TO 32 

C ALL EXTERNAL FORCES HAVE CEASED 

IF (‘-ALT2.GT.O.O ) MALT2=HALT2 + T I ME 

34 CALL CYCLE 

I c (TIve,gE.TIvt 0 TI GO To 42 
I c ( HALT 2 ) 35.35*36 

35 CALL KOOLIT 
HAL T 2 =HAL T 

I F ( HALT2 ) 34 i 34 * 37 

36 IF (TIME.LE.HALT2 ) GO TO 34 

C PLASTICITY IS CONSIDERED OVER 

37 L I N < = 5 
CALL RECORD 

C DAMPING OF F LAS TIC v GT ION STARTS HERE 

I F ( FDAV3 ) 39.39*35 
33 DAvPER=FDAvp 
C-C TO 40 

3 9 DA V PER = P IE*H*B*0«fl0*SORT ( EM I NT*RHO 1 /NHALF 

40 AVPER STAMPER /DEL TAT 
J I MP = 0 

41 CALL CYCLE 
CALL STO D 

IF (NULL I T.LE .0 ) GO TO 41 
C ELASTIC MOTION has CEASED 


LINK 

= 3 

CALL 

RECORD 

42 CALL 

FINAL 

CALL 

EXIT 
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REPRODUCIBILITY OF THE ORIGINAL PAGE IS POOR 


SUBROUTINE INPUT 

CO VV ON ADELT1 * ADELT2 »AFL « ALPHA • AMP , A /PE R . ASF L » B I GKE 1 » B I GKE 2 • 

1 RIGV ,«IG\ BUGGER * COST » DAMPED* DA VPER » DEILON » DELLA T .DELTAT »DD 
2S.DDTH.DFY.DFZ . DhALF *0 * OS » DSZ * DT(- . U Tx . 0 V » a . DwCG . G*ORK • L . EM 
3AXR.EMAXT.EvlNB.EMINT.EP5I .tPSE *ERT I A » E X TRA « t P b I L * FDA.MP • 0 • H 
4 ALT .HALT1 • MALT 2 .HDAMP .HHALF iHSCU.OLOT »P .PASTKE . PF Y . PFZ • P I E * 
5PTMASS.PWORK .Q.RADI AN » R I NGKE • RVELZ » SEP . Sc.PL AS t SEPY I N t StPVAX * S IG^A 
f»»S INT .SMASH.SVIN.SN.SNZ ." . TOWORK » T I V.E . TPwCRK » TYMfc . TZFCRS . V • ThETA . 
7W*ZETA»ZFORS»TMIN»AVF* TCTK £ .PLASTW.ELAMAX.WORKIV.ELASTW.TUTftRK. 
8CHNGMZ » CHNGv » T I ME L . T I v YLD 

COMMON ALPH, AMPl ,AMP2 . S. CONVRT » DE A . D I AM . EPS • H «PE A .P I t P 

1IS l ’R«PR»R*R m O»SICi»SLCPE#SaI TCh ♦ T 1 * r 2 . TB EG I N . TCONS T •TCOOL.TE 
? A , TF I NAL . T IMP t , R I VP t TZER « T ONE » T T WO » TZ . Y 1 1 LD » T I MTOT 
INTEGER COMMON 

COMMON IC I RC » I vp, IOTA . I K A I D » J » JC YCL E . JFDAMP . J I MP * JM I N • JOLT » I 2 • 
1JPRINT* JSTART* JTOTAL t<OOL»LlNK »LI STEM * LOAD . MORE .MPUNCH » MRE A 
2 D* m WRITE* M YIELD* N t\ p L* \FL2 . NMALF .NHALF 1 . NL I M .NSFl . NT EMPS * NU 
3LL I T.NV.NYIFLD.Nl « NEXT * NOR A TE » NG I VEN * \READ » L ASTPR * JOLT2 * JBEG I N » 
4JUSTPP.JZ 

DIMENSION ALPH( S) »ALPHA( 101 *10 ) *ASFL ( 3* 10. 101 ) »BIGV( 101 ) *BIGM 
1101 l .COST ( 101 I *DC 101.101 *DDS( 101 ) . DOTH ( 101 ) . DEA ( 5 > *DFy l 10 1 ) 
2»DFZ(101)»OS(101).DTH(101).DTX(101I»DV(101)»DW(101)»E(6.10.101)»E 
3PS(5»S) »FPSI( 101 ) .EPSE ( 101 ) »EPSIL( 5 *10. 101 ) .EXTRA! 100 ) *G( 101 1 »N 
AEXT ( IS) *OLDT ( 101 . 10 ) *° ( 1C1 . 10) .PEA ( 10) »PFY ( 101 ) »PFZ ( 101 ) *Q( 101 ) » 
5RVELZ 1101). SI G (5.5) » S I GMA ( 5 .10. 101). SI NT (101) . SMASH ( 101 ) »SN( 5.1 
SO. 101 ) .SNZ (5 .10.101 ) »T ( 101 . 10 ) .TEA! 5 ) .V( 101 ) .W ( 101 ) .YIELD! 101 ) »ZE 
7” A ( 10 ) 

f?r. A'MVRFAD.l ) N.NFL.\SFL.JPRI\T.JCYCLE.M3RE. JSTART.JFDAVIP.NTEMPS.N 
10RATE 

1 FORMAT ( 10 I 5 ) 

READ ( M9E AD .2 ) R »B .H . RHO» DE LT AT . HAL T 1 . HAL T 2 . T I MP . TBEG I N . T F I NAL » AMP 1 
1.T1 .HDAVP » FDAVP » T COOL . T I MTQT 

2 FORMAT! 4E 15.6 ) 

L0AD=-1 
DAMPF.R = 0.0 

N 1 = N 

NHAL r =N/2 
AiHALF 1 = NHALF + 1 

Rfl2=NFL/2 

HHALF =H/2 . 

HSOU=H**2 

Dhalf=hhalf/\fl 

afl=b*h/nfl 

RADI AM*57.2B57795 
D IE=3.1A15P265 
D$Z=?.*R« S I N ( P I F / N ) 

AOELT l = 3S0./\ 

ADP L T?»1S0»/N 
D I AM-2* *R 

°TVASS=? • *R‘-'0*R*h*P I E*R/N 
DO 3 < = 1 . iN f l 2 
L = NFL-<«-l 

ZETAIK ) =DHALF* ( L-< ) 

ZF TA ( L ) =-ZFTA ! < ) 

3 CCNT I \U r 
RETURN 
END 
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subroutine init 

c c .r.'Z'i a:')ELT 1 ♦ ADF.lT? ♦ AFl .ALPHA » A^M » A^RER .ASFl.lJIGKEI »b IGKE2 * 

1 3 I G v .HI ON » R’JGGL ^.CJST.JAypED.DAVPER.JELLJN.OELLAT.lELTAT.D,, 

? S.001 h .DP Y ,D C Z »[>'Al.F »'D I D$» DSZ • DTh fDTX »0V »Dw *DWCG »DwCRK • E .EM 
3 Aa u «l W AXT . Vy I NtWL»'I NT * £ l J S I » K PSE » ER T I A • tX TRA . EPS I L » FDAVP »G . H 
i»AL T .HALT 1 *!-»ALT2 » i-OAVP « HI • ALF .HSQU.OLDT .P.PASTKE.PFY.PFZ.PIE. 
r if- .O.RAOI AN.RINGKi ♦ RVELZ»SEP.SLPLAS»SEPMIN*StP , 'AX.SIGVA 

f, ,£ IUT • S'-' AG U i j*'* I N » 5N * S\Z » T » TDWORK » T I ME • TP/iCRK * T YME »TZF OR S.Y .THETA. 
7;., »ZE T a .ZFOR3 .TV I N , AvE .T'JTKE .PLAST'/j .ELAVAX .WORK IM.ELASTW .TOTwRK » 
8CH\r. v 7»rMN5M«TI*.'FZ *TI - YLD 

COMY-jN ALPH « AMP 1 * A'-',f’2 » H * CO WR T » DE A . D I AM 1 1 PS »H • PE A t P I t P 

USP } » PR » i’ * 7-iC » 5 1 G » SLOPE * 5x I TCh » T 1 . T2 . TaEGI . TCOflST . TCOOL » TE 
2A»TF:\AL.7Ivp,TWIMP,TZER*TONEtTTWO» T l ♦ Y I cLD t T I vTOT 
C INTEGER COMMON 

C.0t''"J N I C I PC * IMP * ICTA » I KA I 0 ♦ J • JCYCLE » JF'JA.VP » J I V P » JM I N * JOLT .12* 

1 J 3 R INT »JS TART .J TOTAL .KOCL . L INK ♦ l I STEM .LOAD. MORE .MPU/ViCH. MREA 
20* VWR i Th' *' V YI ELD *N *^FL * 1EL2 .NHALF .NHALF1 . NL I w .NSFL .iNTEMPS.NU 
3LL I T .NV.NY I ElD. 'll .NEXT .NOR ATL »NC I VEN .ARE AD . LAS TPR . JOLT 2 . JBEG I N . 
4JUSTFR. JZ 

DIMENSION AlPh{ 5) .ALP'^AHCi.10) .ASFUS.IO.lOl) .BIGMUDD.BIGM 
1 1 31 ) .COST ( 1 ' 1 ) »">< 10 1 . : D ! .0 DS( 10 i ) .DOT'Rl 101 ) .DfcA ( 5 ! *D C Y ( 10 1 ) 

2»DF/( 101 ! .^31 101 ) • )T~ ! 1 G 1 ) *DTx( 1C1 1 *DV( 101 ) . DX ( 101 ) .E16.10.1C1) . E 
3RS.6.6) .EPS! 5 1 C 1 ) . c. P S i: ( 101) » E P 5 I L ( 5 » 1 0.101) .EXTRA(IOO) » G ( 1C1 ) »\ 
AEXT ( 15 ) .OLDT t 1C1 .10 ) »P C 101 * 10 ) »PFA( 10) .PFY ( 101 ) .PF Z ( 101 ) . 0 ( 101 ) . 
5PVF.L / ( 101 ) .3 I G( 5 .5 ) .5 ICVA ( 5 . 1C . 101 ) »SI'\T ( 101 ) »S V ASM( 1C 1 ) »S\( 5 . 1 
6R.101 < . 5NZ15.10.101 1 . T ( 101*10) . TEA ( 5 ) *V( 101) . X ( 10 1 ) .YIELD! 101) *ZE 
7 T A ( 10 ) 

DATA ASTER/’ *' /.BLANK/' '/ 

\Y I ELD=0 
n*Y IELDsO 
J=“l 

T I v E = 0 • C 
TDWORK«Q.O 
TPwOR< = 0 ■ 0 
JZ=0 

TOTWRK=O.C 
WORK IV- 0.0 
FLA''AX = 0.0 
TOTKF =0.0 
PLASTW=0.0 
F LAST W= 0.0 
T I V FZ =0 • 0 
DO 6 1*1 .Ml 
RVF LZ l I I =0.0 
DV ( I ) =0.0 
DW ( I ) =0.0 
DS (I ) «OSZ 
DTHl I )=0.0 
EPSI ( I ) =0.0 
EPSF » I )»0.0 
Y I F L 7 i I )*9LANK 
BIG.' I I ) =0 • 0 
R I GM ( 11*0.0 
DO 5 K* 1 .NFL 
DO A L=1.NSFL 
S\ ( l » K » I ) *0. 0 
u CONTINUE 
*■ CONTINUE 
A CONTINUE 
\u-\/ u 
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n i t = a DEL T i / r -' A r J I AN 
T u [• 1 A = - A 0 E L T ? / R A 0 I A N 
THE TA?*-‘1IT 
DC 7 ! = 1 .\A 
1 HP TA*T»-‘FTA+R I 7 
M T? = Nhal‘- 1-1 
N! T' 3 = \HALf r + I 

v ( I ) = J* SIM ThETA I 
•a ( I ) *-R« COS (THETA ) 

v ( ' I r ? ) * v < I ) 

A ( M T P ) a - W ( I ) 

VI MT 3)=-V( I I 
W ( N I T 3 ) s W ( N I T 2 ) 
V(NIT4)rV(NIT3> 
aIMTMMIII 
7 CONTINUE 
\3a = 3«'.a 
DO 7 1 1 = 1 iNA 
-~F TA2 = ’ k| F TA2 + ^IT 
COS ' ( I ) = COS< T u E T A 2 ) 
SINTm«SlN( THETA2 ) 
COST ( W.A ) —SINT ( I ) 
SINT ( I+\a ) =CDST ( I ) 

COST ( !+NHAL c ) =-COST ( I ) 
SINT ( I < N M A L r ) *-SINT ( I ) 
COST l I+ - 3A ) = SI\T( I ) 

SI NT ( I+N?A ) a-COST ( I ) 

71 CON T I Nj r 
SE E' = iD I AM 
S v I N = P I AH 
T IVYL0=0.C 
T V I N * 0 • 0 
JVIN=0 
00 q I = ] • n l 
DO q K = 1 t NFL 
OLDT ( I t< ) aTCOOL 
9 CONTINUE 
RE TURN 
END 


SU°ROUT I Nf- TE M P5 

COMMON ADEL T 1 »A0I:lT 2 »A^L t ALPHA* AMP .A'P£R ,ASFL.3iG<El .'a I o<t2 . 

1 3 I G v » 3 I ON , R!JCjGFR .COST » jAMPt P .DAMPER .DELLJN.DELLAT » UE L T A T % jJ 
?S.0DTH.PFy *DFZ »1>hALF ,:),DS»l>S/ » DTM » DTX * JV »IU » DaCG t OwORK • E » £’■’ 
3AXR.EMAXT .E‘-* INRiP-M NT*l!PSI *EPS£ *EHT !A*ExT 1A.EPSIL .FDA VP ,'i.rt 
AALT iHALTI *hAlT? *mDAVP .HHALF *hSGU»OLDT *P * MASTKE ») J F Y * PP2 * P I E ♦ 
5PTvaSS»PV»C ’y .C.RAQI A < I NGKE .RvELZ . SEP . Ss^LAS » SEPV I N • SEP . 4 AX»5IG"A 
A * S I N T ♦ SHAS" . SW I N ♦ N\ « S <Z . T * T DwOR< . T 1 m£ » T PfcCliX < . T YVE » T2 FQ ’< S . V . T HE T A , 
7y;»ZFTA »/ c ORS »T‘XIN,AVE . lOTXE .^LASTa » E l AM AX * w'GR K I w • E L A S T V »TUT.vR< . 
PCH\r,V / t rwNr;V,T I we /,r I MYLR 

COWWO!, AlPh. A’^t'l » AM?2 » R* CONvRT » DEA »D I AM » EPS *M * Pt. A »P I » P 

1 1 SPR » PR » R * RmD » S I G * SLOPE * S a' I TCH.T 1 * T 2 » T9 EG I N • TCONST • TCOOl » TE 
? A » TE I NAL » T I vP * TR I vp » TZER » TONE » TTwO » T2 » Y I ELD * T I WTOT 
C I M T F G e M CO^ON 

COMMON 1CI RC.IMP,!&TA.IRAI0.J,JCYCLE.JFDAMP.JIMP,JMIN,JQLT,12* 
lJPRINT, J ST ART, J TOTAL »KOOL « L INK » L 1 5TE M » LOAD • v ORE »MPUNC M » V ‘REA 
2D.MWRITF » v y J FlD » N » N r l. » NFL 2 » NHALF .NHALF 1 »NL I M »NSFL » NTE f,, PS • NU 
DLL I T »NV »NY IKlO ,N1 .NEXT .KORATE *NGI VEN.NREAD .LASTPR • JCLT2 • JB£G IN* 
AJUSTPR. J2 

P I wr N S I D'i A..3HI 5 ) .Aloha (101. 10). ASF L ( S . 10. 101) »9IGM( 101 ) *3IGN( 

1101 ) .COST ( m ) ,C( 1 C 1 • 10) ,DDS( 101 ) .DDTh( 101 ) »DEA( 5 ) . D F Y ( 101 ) 

2*DF?I 101) *DS(101) *DTh( 101) *DTX(101) *DV(101) *DWI101) *E(6*10*101) *E 
OPS ( a J .EPS I : 101 ) .EPSE ( 101 ) .EPSIL ( S .10. 101 ) .EXTRA ( 100) »G( 101 ) »N 
4EXT (15 : .0L">T ( 101 -10 ) «p» 101 . 10) .PEA( 10) .PEY ( 101 ) »PF2 ( 101 ) .C ( 1 0 1 ) . 
SRVfLZ (101). SI G (5.5) *SI G^A ( 5 • 10 • 101 ) *S INTI 101) .SMASH ( 101 ) ,SN( 5.1 
AC. 10 1 ) .SMZ (S.1C .101 ) *T ( 101. 10) .TEAC 5 ) ,V( 101 ) .^(101 ) .YIELD ( 101 ) .ZE 
7TA (10) 

DI^FNSION R^LANJdO) .TPOINT(IO) .DP3INTI 10) 

IF (NTFVPS-1 ) 1 .21 .1 
1 RF a^( vpFA'* ,? )L ISTFU, IRA ID, ICIRC 
? eOR v AT(3I?) 

GO TO (3,5) .LIST'W 

3 READ( uprAD .A ) l ( T ( I • < ) » K » 1 » NF L ) .1=1 .Ml) 

A F 0 P V A T ( S c 1 A . 6 ) 

RETURN 

5 I F ( I R A I 0 ) Q , A . 0 

A READ ( vrf AO » Y ) ( T ( 1 ,K ) ♦ <* 1 . NFL ) 

7 FORMAT ( 5C15.A ) 

GC TO 1? 

9 RE AP t VRf AD » 1 0 ) TZFR , TONE . T TwfO 

10 forvATC?? IS. A) 

PQ 11 K«1.N«L 

T( 1 »K ) = T Z E P* (ZFTA(K) -HhALF ) **2 /hSQU-TONE* ( ZETA IK ) -hhALF )/H+TTWO 

11 CONTINUE 

1? GO TO(n,lA,l“) .ICIRC 
C CONSTANT AROUND CIRCUMFERENCE 

n DO 1 A I*?.N1 
DO 1A <*1 .NFL 
T( I ,K)«T ( 1 .<) 

1A CONTINUE 
RETURN 

C SIN ThETA VARIATION AROUND CIRCUMFERENCE 

1 A DO 17 I-1.NWALF1 

T I K « SPI(ADFLT1*( 1-1 ) /RADIAN) 

DO 1A K - 1 . N c L 

T ( I » K ) = T CO r L ♦ ( T ( 1 ,< ) -TCP0L ) *T I < 

IF(I.G-.l) i (N-I+?,<)*T(T.<) 

1A CONTINUE 
17 CONTI WO- 
RE TURN 
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COS HALF THfcTA VARIATION ABOUND C I RCU'-'FE RE NCE 
1° 00 7^ I = 1 » Nh ALP I 

T I < = COSI AOFLT?-M 1-1 )/ RAO I AN I 
00 19 <*1 .\ r l 

T ( UK ) =TC00L - ( T I 1 ,< 1-TCGOL > *TI< 

I c (I.r,r.l) T ( I ♦? »< ) * T ( I t < I 

19 CO'.TINJF 

20 CONTI NUE 
»F TURN 

21 ^EAOI v,yFA0,?2 ) TCONST 

2 2 FORMAT (ElS.fi) 

00 ?u 1=1 ,N1 
00 ?3 < = 1»NFL 
T ( I • f I = TCONST 

77, CONTINUE 
7u CON T I MUF 
RE TURN 

?S REAOl ) ( TPOINT ( NT ) tDPOINT (NT ) *.\T«1 » 10 ) 

eCRMAT(<,ri5.fi> 

9 I N*9-MHALF 
ROUT = R+^hALP 

no ?7 < = l * *. r l 

R p L AN J ( < ) = RJ Nf l 2*<-l ) *DnAL c 
?7 CONTI" 1^ 

OC 3 3 ! = 1 *NHAL F 

T«F TA*AOELTV>*( 2*1-1 J /RADIAN 

DO 7 7 < = 1 * N F L 

IF ( THETA-1 ,*>70796*.) ?9.?9.2fi 
?o IF(9FLANJ(<I*SIN(THETA)-RIN) 31*29.29 

79 DELTA= SORT ( RCUT**2-RFLANJ ( K) **?*S IN ( ThETA 1**2 ) -RFlANJ ( < ) *C jS 1 ThETA 

1 ) 

I* 7 .OFLTA.LT.DPCINT ( 1 ) ) GO TO 3<* 

DO 30 IP=?.1C 

I F ( OELT A-OPO I NT ( IP) ) 32.32*30 

30 CONTINUE 

31 T ( I »< ) = T COOL 
GC TO 33 

3 2 T ( I ** ) = ”POINT ( IP ) + ( TPOINTl IP-1 I-TDQI\T( IP ) ) MDPCINT ( IP ) -DELTA ) / (OP 

10INT ( IP J-OOOIMT ( IP-1 ) ) 

33 CONTINUE 

00 1 30 I=1.\HALF 
DO 330 <«1.NFL 
N0PP=N-I+1 

77" T ( NOPP . K ) *T ( I .< ) 

RETURN 

7U WRITE COWRITE. 35 I 

3* POR^ATl ' a/HEN CALCULATING TEMPERATURE USING *EThOD C. TmP T E p E R A T 
1JRE A T THE OUTSIDE SURFACE V UST PE GIVE', IN JA T A InP T'l 

call r > I T 

r \D 
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SU R R01JT I NE HEAT 

C THIS SDR* OUT INF OFF INlS t Hl rCMPcRATURt Dc.Pt.OtNT MATERIAL CONSTANTS 

COMMON ADELT 1 » ADKLT 2 »AFL .ALPHA . A l - » AMPt. S . AS C _ »3 1 GKE 1 .8 I GKE 2 • 

1R I Gm t R i f,M . R uGGE R .COST .DAMPED * DAMPER .‘'ELLD \ » DtLLAT .DELTAT »DD 

2 5 • DOTH » vFY.CFZ. DHALF »D »DS »DSZ »DTH » QTX *DV »Dw » 2WCG » DWORK • E • EM 

3 A X h » r. A X T * E“ I \3 »E v I NT » EPS I » EPSt »ERT I A . EXTRA ♦ EPS I L . FDAMP *o » H 
4ALT»HALT1*‘!ALT2 •HDAMP . nHALF .HSQU.QLDT .P.PASTKE »PFY t PFZ • P I E » 
ftPTMASS.Pw'ORK *0 »RAD I A ; » <I\GKc .RVELZ • SEP » StPLAS t StPM I N t SEPMAX » S I GMA 
ft * 3 I -N T • SMASH , $-.< I N , 5\ , S «Z » T • TDwORK * T I Vc t TP'WC <K • T YME * TZFORS » V • T HETA . 

7W » ZET A » ZFUR3 • T M I N .AVI' • T'JT<L .^LAST* » ELAMAX . WORK I M . ELASTW » TUTwRK » 
3CHM3 V Z » CHM O'/ . ” 1 Vfc 7 • T I MYLD 

COMMON AL PHtA^p: »AVP2 • f* • CONVRT » DEA »D I AX . EP5 »h »Pl A »P I « P 

HSPR*PR»R*RHO.SlG*SLOP£.SWITCH|Tl,T2»TBEOINtTCO\ST»TCOOL»TE 
2 A « T-* I NAL • T IMP . TR I VP, TZ£R . TONE • T TWO • TZ * Y I tLO» T IMT0T 
C INTEGER COMMON 

COM-ON I C I RC ♦ I - V . I CT A , I R A I D , J , jC YCLE . JF DAMP . J I MP » JM I N • JOL T . I 2 • 

1 JPR I ;» T * JSTAP1 ♦ J TOTAL .KOOL • L INK ♦ L I ST E M j LOAD .YORE »MPUNCH»VREA 
2D * V WR I ‘ r E » vv I ELD »N »NFL • NFL2 * NHALF »NHALF1 »NL IMuNSFL »NTEMPStNU 
3 L L I T * N V t \ Y I £ L D » N 1 ♦NEXT •NORATE »\GIVEN.NREAD*LASTPR #J0LT2 »J9EG IN » 

4 JU57PR * J? 

DIMENSION ALP 1 -: ! 5 ) fAL°HA l 101 ♦ 10 ) ♦ ASFL ( 5t 10t 101 ) tBIGMl 101 ) ♦BIGN ( 

1101 ) tCOST t 101 )♦;“■( 101 *1 <) tw»DD( 101 » ♦ JDT H ( 101) ♦ DE A ( 5 ) »DFY ( 101 ) 

2 O^Z < 1C U »DS ( 1C1 ) .DThi 101 S .DTX ( 101 ) .l)V( 101 ) »DW ( 1C1 ) »E 16.10.101 ) »E 
3PS(0.S) .rPSI ( 1C1 ) »£PSt ( 101) .EPSIH 5.10. 1C1 ) .EXTRA ( 100 ) »G< 101 ) .N 
AEXT ( 15) .OLOT ( 101 . 1C ) »P( 1C1 1 1C ) * D E A ( 10).PFY(101).PFZ(101).Q(101)» 
5f!VELZ- ( 101 ) *SIGCf».5» .SIG"A (5.10*101 ) *SIMT( 101) . SMASH ( 101 ) .SN ( 5.1 
ft 0.101 ) . SN Z l 5 . 1 C ♦ i 0 1 ) »T 110 1.10) . T F. A ( 5 ) » V ( 101) « W ( 1 C 1 ) .YIELD! 101) »ZE 
7TA ( 1C ) 

READ ( MRE AO , 1 ) ( TEA (NT ) .NT* 1 .NT EVPS ) 

READ ( MREAE- « \ ) (ALPwCNT) .NT« 1 .NTEVPS ) 

I F ( NORATE.FO.O ) GO TD 23 
REAnu/READ.l ) (DEA (NT) »NT=1»NTE V PS) 

READ ( MREAD . 1 ) ( PE A ( NT ) » NT = 1 . NTE-'PS ) 

1 FORMAT ( 5E15.6) 

23 DO 3 NT = 1*NTF.KPS 

READ (MRE AD.2 ) (LPS(L.NT) .SIS(L.NT) »L = 1.\SFL) 

2 FORMAT (4E lft. ft) 

3 CONTINUE 

DO 22 1=1. N1 
DO 21 K=1.NFL 
IF (NTFVPS-l ) a. A. 6 
C NO TEMPERATURE VARIATION 

A ALPHA! I»K)=ALPH(1) 

IF (NCRATE.EG.O)GO TO ?A 
D ( I » K ) = D E A ( 1 ) 

P ( I .< ) =PF A ( 1 ) 

GO TO ?ft 
?4 CM I »K ) =0 • 0 
2ft DO ft L=1.NSFL 

EPS ! L ( L »K . I )=EPS(L.l) 

SIGMA (L.K. I ) =SIG(L.l ) 

5 CONTINUE 
GO TO 16 

C CALCULATION OF TEMPERATURE DEPENDENT MATERIAL CONSTANTS 

ft NT= 1 
7 N T = *! T + 1 

29 IF(T( I .KJ-TFACNT-l ) )9.13.« 

<? I c (NT-N-rrvpv.il 1,1 i.pa 
9 IF I Tr A( ■ 1-1 | .FQ.O.O) GO To 2P 
\ 1 D x = A-3 C ! T . < ) / T E A ( \T-1 ) ) 
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IF ( Afi5(ERR0R-l. ) .GT..001) GO TO 28 
T ( I«K)»TEA(NT-1 ) 

GO TO 13 

28 WRITE (MWR I TE • 10 ) I.K.T(I.K) 

10 FORMAT! ' TEVPtRATURE OF RING IS OUTSIDE RANGE OF INPUT VALUES 

10F CONSTANTS. AT I = '. I 3 I 3/ ' TEMPERATURE IN QUESTION IS' 

2£ 1 b • 6 ) 

CALL FX I T 

11 I C (T( I •< ) — TEA (NT I ) 1 2 • 1 3 • 7 

1? FACTOR= ( T ( I .iU-TFAINT-1 ) ) / t TEA ( NT ) -TEA ( NT- 1 J ) 

GO TO 14 
13 FACT0R=C.C 

It ALPHA ( I ,K)=ALPH(NT-1 ) +FACTOR* ( ALPH ( NT ) -ALPH ( NT-1 ) ) 

IF (NORATE. EG. 0) GO TO 26 

D( I »K ) = DEA ( NT— 1 )+FACTOR*(DEA(NT)-DEA(NT-l ) ) 

P ( I »K 5 =PEA (NT-1 J+FACTOR* ( PE A ( NT ) -PE A ( NT- 1 ) ) 

GO TO 27 

26 D( I »K )=0.0 

27 DO 15 L=1»NSFL 

FPSIL (L.<» I )=E'PS(L.NT-1 )+F ACTOR* (EPS (L.NT) -EPS (L.NT-1 ) ) 

SIGMA (L.K. I ) =SIG(L»NT-1 ) +F ACTOR* ( S I G ( L . NT ) -S I G (L.NT-1 ) ) 

15 CONTINUE 

16 E ( 1 »K » I )=SIGMA( 1 »< • I ) / EPS I L ( 1 * K • I ) 

IF (NSFl-1) 19.1R.17 

17 DO 18 L=2*NSFL 

E ( L ♦ .< . I ) = ( SIGMA (L.K. I ) -SI GMAIL-l .<*!))/( EPS IL (L.K. I J-EPSIL ( L“1 .<» 
II ) ) 

18 CONTINUE 

19 E ( NSFL+1 »K . I >=0.0 
DO 20 L=1.NSFL 

ASFLIL.K.I I -A C L* ( E ( L »K ♦ I ) -E ( L+ 1 .K . I) ) /E ( 1 »K . I ) 

SNZ (L »K. I ) =E ( 1 .K. I >*EPSIL( L.K. I ) 

20 CONTINUE 

21 CONTINUE 

22 CONTINUE 
RETURN 
END 
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SUBROUTINE TEMPUS 

COMMON A0ELT1.ADELT2 » AFL . ALPHA . AMP * AMPt R . ASFL »B I GKt 1 .9 I GKE2 . 

1* I GM.B I GN.BUGGER.CGST. DAMPED .DAMPER .DELLON .DELLA T .DELTA T » JO 
25 » DOT H » DFY »DFZ » DHALF » D * D5 • DSZ »DTH » DTX *DV »Dv. » Da'CG » Da'ORK » E » EM 
3AXB*c.maxT* Em INfl.LMINT.EPS I .EPSE . ERT I A . EXTRA . EPS I L . FDAVP .G . H 
4ALT.HALT1.HALT2 .HDAMP.HHAlF .HSQU.OLDT .P .PASTKE »PF Y , PFZ , P I E . 

5pt m ass»p'a'OR< .q.radian. ringke.rvelz.sep.seplas.se pm in* se pm ax.sigma 

A.SINT.SMASh.SMIN.SN.SNZ.T.TDWORK.TIME.TPWORK.TYME.TZFORS.V.ThETA. 
7W.ZETA.ZFORS.TMIN.AVE. TOT Kt . PLASTW . ELAMAX . WORK I M .ElASTw . TOT wRK . 

8 CrtNGM Z . CHN GM . T I ME Z . 7 IM Y L D 

COMMON ALPh,AMP1,AMP2. R. CONVRT • DE A ,D I AM .EPS .H .PE A »P I »P 

1 ISPR.PR.R.RtO.SIG.SLOPE.SWI TCH.T1 .T2.TBEGIN.TC0NST.TC00L.TE 
2A.TFINAL.TI,MP.TRIV1P,TZER.TONE.TTWO.TZ.YIELD.TIMTOT 
C INTEGER COMMON 

COMMON I CIRC. IMP, IOTA. I RA I D . J . JCYCLE . JFUAMP , J IMP , JM I N . JOLT . 12. 
1JPRINT. JST ART. JTOTAL.KOOL. LINK. LI STEM. LOAD .MORE. MPUNCH.MREA 
2C.MWR ITE.MYIELD.N.NFL.NFL2.NHALF.NHALF1 .NLIM.NSFL.NTEMPS.NU 
3LLIT .. NV.N YIELD. M .NEXT .NORATE »NG I VEN »NREAD » L AS TPR .JOLT 2 . JBEG I N. 
4JUSTPR.JZ 

DIMENSION ALPHl 5 ) .ALPHA (101.10 .ASFL (5. 10.101 ) .BIG^I 101 ) .BIGN( 

1101 ) .COST ( 1C 1 ) .D< 10] .10) »DDS( 101 ) .DOTH ( 1 0 1 ) . DE A ( 5 J .OFY( 101 J 
2 .DFZ ( 1C 1 ) OS ( 101 ) .DTH( 101 ) .DTX ( 1C1 ) »DV( 101 ) .DW( 101 ) »E (6.10.101 ) .E 
BPS ( 5.5) .KPS I ( 101 ) .EPSE < 101) ♦ EPS I L ( 5 . 10 . 1 0 1 ) .EXTRA ( 100 ) »G( 101 ) .N 
4LXT ( 15) . OLDT ( 101 »1C) .P( 1C1 »10 »PEA( 10) »PFY( 1C1 ) »PFZ (lOl).Q(lOi). 
5RVELZ ( 101 ) .S IG( 5.5) .SI GMA ( 5 » 10 • 101 ) .SINT (101) .SMASH ( 101 ) .SN( 5.1 
60.101 ) »SNZ (5 .10.101 ) .T ( 101.10) .Tf A( 5 ) . V ( 1C 1 ) . W ( 10 1 ) . Y IELD ( 13 1 ) .ZE 
7TA (10 ) 

ERT I A=0»0 
EMAXB=0.0 
EMAXT=0.0 
DO 1 K=1.NFL 

EVAX9=EMAXB+E( 1 .K . 1 ) »ZETA ( K ) **2 
E M AXT=f MAXT+E ( 1 »K»1 ) 

ERTIA=ERTIA+ZETA(K)*»2 

1 CONTINUE 
TERTIA=H**?/12. 

EM INRsEMAXB 

EM I NT =EMAXT 

IF (NTFVPS.EO.l ) GO TO 4 

DO 3 1=2. N1 

EAVEB=0 • 0 

EAVET=0.0 

DO 2 K= 1 .N C L 

EAVEB'EAVEB+E ( 1 .K. I ) *ZETA ( K ) **2 
EAVET=EAVET+E( l.K.I ) 

2 CONTINUE 

IF (EAVEB.GT.EMAXB) EMAXB=E A VE9 
IF(EAVFB.LT.EMINR) E v I NR=EA VE9 
IF ( EAVET.GT.EWAXT ) £VAXT=EAVET 
IF (EAVFT.LT.EMINT ) E v I NT =E A VET 

3 CONTINUE 

4 EYAXT=E^AXT/NFL 
EVINT=EVINT/NFL 
EVAXB=EVAX9/ERT IA 
EM!NB=E w INfl/ERTIA 
IF(OELTAT.GT.O.O) C.O TO 11 
DFLL0N=O5Z / SORTIEMAXT/RHO) 

PELLA ’ = DSZ**2/2./SaRT( E V A X 9 *TERTI a/RhO) 

IF(OFLLON-nFLLAr) ft , ft , b 
6 DELTA T=0ELIAT 
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GO TO 7 

* DfLTAT»DELLO\ 

7 0" A MP = 1 » 1 5 

i)ELTAT»DELTAT*10. 

I c ( Ob' LTA T-l 0 • 0 ) P.10.10 
a CONTINUE 

KR I TE ( MWR I TE . 9 ) 

g FORMAT! • INCREASE LIMIT ON STATMENT 7. SUBRT TEMPuS FOR DElTAT DETt 
1RM INATION • ) 

CALL EXIT 

10 MDE t =DELTAT*.A5 
OELTA T«M0ET»2 

VP s.V|p 

OELTAT* DFLTAT*10.0**MP 
RETURN 

11 OELLA T = 0 • 0 
RETURN 
END 




SUBROUTINE IDEM 

COMMON A0PLT1.ADELT2 . APL . A LPHA . AMP » AMPER » ASFL » B I G<E 1 .9 1 GKE2 » 

IP I GM.R I ON. RuGGER. COST .DAMPED .DAMPER .DELLON . DELLA T . DEL TA T ♦ DD 
?5 »DDTh»Dpy .DPZ.DhALF » 0 »DS » DSZ • DTH . DTX .DV »D'.v . DWCG • DWORK • L * EM 
3 AXB.EmaxT.EmINB.EVINT.FPSI .EPSE.ERT I A. EXTRA, EPS I L .FDAMP.G.H 
A ALT »HALTlt u ALT? » HO AMP .HHALF » w SC)U»OLDT .P.PASTKE »PFY ♦ PFZ * P I E . 
5PTVASS»PWORK»C»RADIAN.RINGKE»RVELZ.SEP»StPLAS»SEPM! N . SEPMAX ♦ S IGMA 
A » S I NT « SMASH »S M IN»SN»SNZ*T • TDWORK * T I ME » TP WORK .TYME.T2FOR5.V.THETA. 
7'A'#ZETA»ZFORS»TMlN,AVE.TOT<E»PLASTw»ELA.MAX.y/ORKIM»ELASTW»TOTwRK. 
8CHNGMZ »C.-* S !GM » T IMEZ »T IVYLD 

COMMON ALPh t A M P 1 . AMP 2 » B. CONVRT . DEA .D I AM . EPS »H * PE A . P I , P 

1 1 SPR » PR »R ♦ RHO * S I G » SLOPE » SW I TCH » T 1 » T2 » TBEGI \ • TCONST » TCOOL » TE 
?A»TFINAL»TIMP*TRIVP,TZER»TONE«TTWO»TZ.YIELDtTIMTOT 
INTEGER COMMON 

COMMON ICIRC* I«P* IOTA* IRAID* JtJCYCLE.JFDAMP. JIMP* JMIN* JOLT* 12* 

1 JPR INT * JSTAR T » JTOTAL *KOOL » L I N< * L I STEM i LOAD » MORE »MPUNCH » VREA 
2D»MWR I T E fMYIELD»N» NRL»NFL2*NHALF»NHALF1 »NLIV,NSFL»NTEMPS«NU 
3LL IT *\V»NYIELD*M »NE XT .NORATE . NG I VFN .NREAD . LASTPR . JOLT2 • JBZGIN. 
AJUSTPR, JZ 

DIMP\SION ALPH( 5) .ALPHA! 101 *10) . ASFL ( 5 » 1 0 . 10 1 ) «B IGM ( 101 ) *BIGN( 

1101 ) .COST! 101) .0(101*10) .DOS! 101 ) .DOTH! 101 > *DEA( 5 1 *DFY( 101 ) 

2 .DFZ ( 101 ) .DS ( 101 ) »DTH ( 101 ) . DTX ( 101 ) *DV( 101 ) *DW < 101 ) *E (6 *10*101) *E 
3PS! 5.5) .EPS I ( 101 ) .EPSE! 101 ) ♦ EPS I L ( 5 » 10 * 1 0 1 / .EXTRA! 100 ) .G( 101 ) .M 
AEXT! 15) .OLDT ( 101.10) .P( 101.10) .PEA! 10) »PFY( 101 ) .PFZ ( 1 0 1 ) . Q ( 1 0 1 ) . 
5RVELZ ( 101 ) »S!G( 5.5) .SIGMA! 5.10.101) .SINT(lOl) .SMASH! 101 ) .SNl 5.1 
60.101 ) »SNZ (5.10.101) .T( 101. 10) .TEA! 5) .V! 101 ) .W( 1011 * YIELD! 101 ) .ZE 
7TA { 10 ) 

WRITE! M’.vR I TE • 1 ) 

1 FORMAT! • 1 » ) 

IF (MORE.GT .0 ) WR I TE ( M WR I TE » 2 ) MORE 

2 FORMAT! * THIS RUN IS A CONTINUATION OF RUN'. 13.' OF'//) 

WRITE (VWRITF.3) R .B.H.N.NFL .NSFL .NTEMPS 

3 FORMAT!' JET 1 A PROGRAM USED TO CALCULATE THE RESPONSE OF 

1 A FREE'/' CIRCULAR HEATED RING WITH THE FOLLOWING PARAMETERS.. 
2..'//' RADIUS OF PING to CENTROID ( I N . ) • ♦ 20X . ' = ' F 1 0 . 6/ 

3' WIDTH OF RING ( I N . ) ' » 3 3X « • = ' F 1 0 • 6/ 

A ' THICKNFSS OF RING ( I N. ) ' . 29X . • = ' F 1 0 . 6/ / 

5' NUMBER OF MASS POINTS USED IN-WHOLE R I NG ' • 1 2X . ' « ' I 5/ 

6' NUMBER OF FLANGFS USED IN RING CROSS SECT I ON • . FX . ' = ' I 5/ 

7' NUMBEP OF SUBFLANGES USED IN STRAIN HARDENING MODEL ='15/ 

8* NUMBER OF TEMPERATURE LEVELS USED TO DESCRIBE'/ 

9' TEMPFRATURE DEPENDENT MATFRIAL PROPER T I ES ' . 10X , ' = ' I 5 ) 

IP (NTEMPS-1 ) 5. A, 5 
A WRITE! M»yR I TE • ? A ) TCONST 

3A FORMAT! '0 THE TFmpcraTuRE OF THE RING IS A CONSTANT AND IS EQUAL 
1 TO' » FF • ? » ' DFGRFES ' ) 

GO TO 1A 

5 LIMIT-N1/A+1 
NEXT! 1 ) =-? 

VR I TE ( Mwp I TE . 6 ) 

6 FORMAT! '0 PRFSFNT RING TEMPERATURES ♦ T(I.K). ARE AS FOLLOWS...') 
DO 13 1=1. LIMIT 

NEXT ( 1 ) =NEXT ( 1 ) +A 
DO ■* NEX = 2.A, 

NEXT ( N p X ) *NFXT ( NFX-1 ) + l 
MEX =NT X 

IF(\FXT(NEX) .FO.N1 ) GO TO F 

7 CONTINUE 

8 WRITF (VW9ITF.S) ( NEX T ( <E ) » NF = 1 . MF X ) 

9 FORMAT! //1*X*?h !*«/»( n,15X) ) 
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WR I TF ! MWR I TE » 10 ) 

10 FORMA T ( 1 HO ) 

\EX1«NRXT ( 1 ) 

NEXMEX-NEXT ( VEX ) 

DO 1? <* 1 »N r L 

WRITE (MWRITC .1 1 ) K.(T(II.K).I I «NEX 1 iNEXMEX ) 

11 FORMATJ3H <=.I3»?X.4(2X.E14,B.2X) ) 

1? CONTINUE 

13 CONTINUE 

14 IP(DELLA1 ) 17.17*15 

15 WR I TE I MWR I TE » 16 ) DELLAT .DELLON 

1A FOR V A T ( ' 0 TIME INTERVAL BASED ON LATERAL VIBRATION EQUATION = • E 1 
15. R / • • TIME INTERVAL BASED ON LONGITUDINAL VIBRATION EQUATION = 
2 • E 1 5 • A ) 

17 WRITECMWRITE.lfl J DELTAT 

1° FORMAT!//' TIME INTERVAL PER CYCLE USED IN PROGRAM (SEC) = ' E 1 5 • 
IP/ ) 

I F ( IOTA ) 21.19.21 

19 WRITE (VWRITE.20) 

20 FORMAT! '0 THERE IS NO IMPULSIVE LOADING') 

GO TO 30 

21 GO TO ( 24.26 ) . IOTA 

24 WRITE! M'WR I TE . 25 ) 

25 FORMAT! '0 AN ARBITRARY IMPULSE LOADING HAS BEEN SPECIFIED AS DE 
1SCRIBED BY INPUT CARDS') 

GO TO 30 

25 WRITE(v w ritE,27) 

27 FORMAT! '0 A LOCALIZED SINE SHAPED IMPULSE LOADING HAS BEEN SPEC 
1IFIFD') 

30 IF(TFINAL.EO.O.O) GO TO 32 
PLEN=TFINAL-TBEGIN 

WR I T E ( M WR I T E .31 ) TBEG I N. TF I NAL .PLEN 

31 FORMAT ('0 STARTING TIME OF FORCING FUNCTION (SEC.) ='F10.7/, 

1* STOPPING TIME (SEC.) ='F10.7/.' DURATION (SEC.) ='F10.7 
2 ) 

RETURN 

3 2 WR ITE (MWRITE.33 ) 

33 FORMAT! '0 THERE IS NO TIME VARYING FORCING FUNCTION DURING THIS 
1 RUN' ) 

RETURN 

END 
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SUBROUTINE IMPULS 

COMMON A0ELT1 .ADFLT2 »AFL,ALPHA.AVP,avPER.ASFL.9IGKE1 tBIG<E2. 
1RIGv,BIGNi9UGGER»C0ST.DAMPED*DAMPER . DELLDN. DELL AT .DELTA T,DD 
2S.DOTH.DFY »DFZ » DHALF .D.DS.DSZ.DTH.DTX.DV.DW* DWCG *DWORK » E • EM 
3 AX B.E VAX T.EVIN9.EMJMT.EPS I .EPSE.ERT I A , EXTR A , EP S I L , FDAMP ,G » H 
AALT.HALT1.HALT2.HDAMP.HHALF » W SOU.OLDT .P.PASTKE »PF Y ♦ PFZ . P I E • 
5PTMAS5, PWOR< »O.RADIA\.RI,NG<E»RVELZ.SEP.SEPLAS.SEPMIN»SEPMAX.SIGMA 
A.SINT .S'-'ASH.S^ IN. SN.SNZ.T. TDWOR<» TIME, TPwCR<.TYME.TZFORS.V. THETA, 
7W,ZETA,ZF0RS.TMIN.AVE»T0TKE,PLASTW,ELAV i ax,W0R<IV,ELASTV» ,TOTWR<, 
8CHNGMZ,CHNQM,TIMEZ.TIMYL0 

COMMON ALPH,AVP1,A.YP2, e, CONVRT , DE A ,D I AM , EPS »H , PE A ,P I ,P 

1 ISPR.PR.R.9H0,SIG,SL0PE.SwI TCH.Tl , T 2 . TB EG I N , TCONST , TCOOL . T E 
2A,TFINAL,TIMP,TRIMP,TZER,T0NE*TTW0,TZ,YIELD,TIMT0T 
C INTEGER COMMON 

COMMON I CIRC . IMP, IOTA, I RAID , J , JCYCLE . J^DAMP , J IMP , JMIN . JOLT , I 2. 

1JPR INT,JSTART, JTOT AL , KOOL , L I NX , L I STEM , LOAD . MORE • MPlJNCH , MRE A 
2D.MWRITE ,MYIELD.N,NFL,NFL2.NHALF,NHALF1 ,NL IM ,NSFL .NTEMPS.NU 
3LL »T,NV»NYIFlO,N1.NEXT,NORATE.NGIVFN,NREAD.LASTPR,JOLT2 .JBEGIN, 
4JUSTPR.JZ 

DIMFNSION ALPHt 5 ) , ALPHA ( 10 1 » 10 I .ASFL I 5» 10, 101 ) .B I GM ( 10 1 ) . B I GN ( 
1101) ,COST( 101 ) ,0(101.10) » DD5 ( 1 0 1 ) .DOTH ( 1011 ♦ DEA ( 5 ) »DFY ( 1011 
2.0FZ( 101 ) .DS( 101 ) .DTH ( 101) .DTX( 101 ) »0V( 101 ) »DW( 101 ) •£( 6.10. 10 U .E 
3PS(5.5) .EPS I ( 101) .EPSE( 101) . EPS I L ( 5 . 10 ♦ 10 1 ) . EXTRA ( 1 00 ) . G ( 101 ) ,N 
4EXT ( 15) .OLOT ( 1C1 .10) »P( 101 . 1C) .PEA( 10) .PFY( 101 ) .PFZ ( 101 ) .Q( 101 ) . 
5RVELZ (131 ) »SIG(5»5> . S I GMA ( 5 . 10 » 10 1 ) .SINT ( 101 ) . SMASH ( 101 ) .SN( 5.1 
AO. 101 ) .SNZ( 5.10.101 ) »T( 101.10) .TEA ( 5 ) . V ( 1 0 1 ) . W ( 1 0 1 ) . Y I ELD ( 10 1 ) . ZE 
7TA ( 10 ) 

DIMENSION VDEL(lOl) . WDEL ( 101) 

I c ! IMP. ED. 1 ) GO TO 11 
RE AD ( MREAD • 1 i IOTA.NV 
1 FORMAT(?I5.5X.E15.A) 

I e ( IOTA. EG). 0 ) GO TO 15 
GO TO (90.94) * IOTA 

90 DO 91 1*1. N 
VDEL ( I ) =0.0 

91 WDEL ( I ) =0.0 

92 FORMAT! I5.2E15.6) 

DO 93 IMAZ=1»NV 

READ! mreaD .92 ) MASSNO ♦ VRAD * VTAN 

IF (MASSNO.GT.N) GO TO 101 

THE TA= ADEL T2* ( 2*MASSNO-l ) /RADIAN 

VDEL(MASSNO) = (VRAD*SIN( THETA )+VTAN*COS( THETA ) ) *DELTAT 

93 WDEL(MASSNC) = (-VRAD*CGS(THETA)+VTAN*SIN(THETA) ) *DELT A T 
NHITsMASSNO 

GO TO 10 

C ASSUME SINE DISTRIBUTION. NOTE.... NO. OF MASSES MUST BE ODD 

94 READ! MREAD. 95) MASSES ♦ MSTAR T . VEEZ. TILT 

95 FORMAT(2I5»?E15.6) 

DO 941 1=1, N 

VOFL ( I ) =0.0 
941 WDFLI I ) =0.0 

TILT=TILT*PIE/1A0. 

DTFTA=PI C / ( ( MASS F S“1 ) *2 ) 

WIDTH«D1E/(MASSES-1 ) 

FX TRA ( ? ) = V P FZ 
A L F S S = 0 

mASS? = 1+m/\c; SES/? 

DO 07 <ARFA=1 .MASS? 

MAZZ = MSTAR' r -l-.<A7EA 
v A 2 Z A = v s T A 9 1 + * ' /, £ $ F S - < A R £ A 
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TuETA = ADELT2*(2*MAZZ-l ) /RAD I AN 
T A T A= ( ( K AREA-1 ) *2+1 ) *DTETA 
VCITY*VEFZ*( 1-COS ( T AT A ) ) /W I DTH-ALESS 
ALESS=ALESS+VCI TY 
VRAD=VCITY*SIN( TILT ) 

VTAN=VCITY*COS( TILT) 

VDEL( WAZZ)«( VR AD*SIN ( THETA )-VTAN*CCS( THETA) ) 

WDELl VAZZ ) =(-VRA0*COS( THETA)+VTAN*SIN( THETA ) ) 

THETA=ADELT?*( 2+MAZZA-l ) /RADIAN 

VDEL (MAZZA)= (VRAD*SIN( THETA) +VTAN*C0S( THETA) ) 

97 WDELIMAZZA ) * <-VRAQ*COS( ThETA )+VTAN*SIN( ThETA ) ) 

WRITE (MWRITE t98 ) 

98 FORMAT! 'OINITIAL VELOCITY INPUT IS AS FOLLOWS...'/) 

DO 100 KAREA=1 .MASSES 

mazz=msta,?t-i+karea 

WR ITE (MWRITE. 99 )MAZZ»VDEL( W AZZ ) .WDEL(MAZZ) 

99 FORMAT!' MASS POINT'. 13.' VDEL ='.F10.2.' WDEL = • . F 10 . 2 ) 

VDEL (MAZZ ) *VDEL MAZZ )*DELTAT 

WDEH YAZZ ) «WDEL (MAZZ )*DEL TAT 

100 CONTINUE 
NHIT«MSTART+MASSES-1 

10 I Y P = 1 
RETURN 

101 WRITE ( MWR I TE « 102 ) 

102 FORVATI • 1THERE IS AT LEAST ONE MASS NUMBER GIVEN FOR IMPULSE INITI 
1AL VELOCITY WHICH IS GREATER THAN THE STATED NUMBER OF MASSES.'/. 
2'PLEASE CHECK YOUR DATA...') 

CALL EXIT 

11 WORK I M* 0 • 0 

121 DO 122 I-l.NHIT 

• wORK I MswORK I M+VDEL ( I )**2+WDEL( I )**2 
DV ( I )=DV( I )+VDEL( I ) 

DW ( I ) «DW ( I J+WDELI I ) 

122 CONTINUE 

C IMPULSE KINETIC ENERGY 

123 WORKIm=wORKIm*PTMASS/DELTAT**2/2. 

15 i vtp = - 1 

RETURN 

END 
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SUBROUTINE prezz 

CO WON ADELT1 .ADELT2.AFL.ALPHA.AMP.AMPER.ASFL.BIGKE1 .BIGKE2 • 

IB I GM.RIGN.RUGGFR.COST. DAMPED .DAMPER. DELLON.DELLAT.DELTAT.DD 
2S.DOTH.DFY.DFZ . DhALF .D »DS » DSZ » DTM . DTX »D V »D* » DWC 5 » DWORX » F » EM 
3AXR»E M AXT .EMINB.EMINT »FPSI . EPSE . ER T I A » E XTR A . EPS I L . FDAMP . G . H 
A ALT »HALT1 » HALT 2 .HDAMP. HHALF .HSOU.OLDT .P .PASTKE »PPY , PFZ , P I E . 
5PTMASS.PWORK.D.RADIAN.RINGKE.RVELZ .SEP.SEPLAS.SEPVIN.SEPMAX.SIGMA 
A »S INT .SMASH.SM IN » 5N »SNZ * T » TDWORK .TIME tTPWORK » TYME »TZFORS»V» THETA* 
7W*ZETAtZFORS#T M IN*AvE»TOT<F »PLASTW » EL AMA X * WORK I M .ELAST* * TOT*R« » 
BCHNGMZ .CHNGM ♦ T IMEZ . T I MYLD 

COMMON ALPH.AMP1.AMP2. B« CONvRT » DE A *0 I AM . EPS • H . PE A . P I , P 

1ISPR»PR»P»RH0.SIG.SL0PE»SWITCH.T1 . T2 . TBEGI N . TCONST . TCOOL . TE 
2 A, T- INAL. * I MP, TR I MP, TZER. TONE .TTWO.TZ.Y I ELD. T I MTCT 
INTEGER COMMON 

COMMON ICIRC. IMP. IOTA. IRAIO.J. JCYCLE.JP DAMP, JIMP. JM I N.JOLT. 12 » 
1JPRINT.JSTART . J TOTAL » (COOL . I NK »L I STEM .LOAD .MORE .MPUNCH.MREA 
2D.MWRITE .MY I ELD. N.NFL. NFL2.NHALF.MHALF1.NL I M.NSFL.NTEMPS.NU 
3LL IT.NV.NYIELD.N1 .NEXT .NORATE ,NG I VEN .NRE AD » L ASTPR • JOL T2 , JBEG I N . 
AJUSTPR.JZ 

DIMENSION ALPHI 5) .ALPHA ( 101 .10 ) .ASFL ( 5. 10* 101) *B IGM ( 10 1 ) . B I GN ( 

1101 ) .COST ( 101 ) »D( 101 ,10) ,DDSC 101 ) , DOTH ( 101 ) » DEA ( 5 > . DF Y ( 101) 

2 .DFZ ( 101 ) .DSI 101 ) »DTH ( 10 1 > . DTX ( 10 1 ) .DV I 10 1 ) . DW ( 10 1 ) . E ( 6 . 1 0 . 1 0 1 ) . E 
3PS(5,5) .EPS I (101) .EPSE ( 10 1 ) . EPS I L ( 5 . 10 . 101 ) » EXTRA ( 100 ) .G ( 10 1 ) ,N 
AEX T ( 1 5 ) »OLDT (101.10) »P ( 101 • 10 ) .PEA ( 10 ) • PFY ( 101 ) .PFZ ( 101 ) »Q ( 101 ) • 
5RVFLZ (101) .SIG15.5) .SI G^A (5.10.101) . S I N T ( 101 » .SMASH (101 ) »SN( 5.1 
AO. 10 1 ) .SNZ (5.10.101 ) .T( 101 .10) .TEA ( 5 ) .V ( 10 1 ) . W ( 101 ) . Y I ELD ( 10 1 ) .ZE 
7TA ( 1 0 ) 

DIMENSION FS(100) .EPIND(IOO) 

IF (LOAD.EQ.l ) GO TO 10 
READ(MRFAD.A) N5TAT « MASSN , RPM , ANGL 
A FORMAT(2I5.2E15.6) 

FTOTZ = AMP 1 
T2=TF INAL 
C I RC= 2 • *P I E*R 
CIRCR = CIRC*RPV,/60, 

DSZH=DSZ/2. 

FTOTl=FTOTZ/ (Tl-TBEGIN) 

FT0T2=FT0TZ/(T2-T1 ) 

TILT = ANGL*PIF/1<»0. 

STILT-SIN(TILT) 

CTILT = C0S( TILT ) 

PIFP»PIF/DSZ/ (M ASSN-1 ) 

10 ARCL=CIRCR*( TIME-TBEGIN) 

NMASS* ( ARCL+DSZH ) /DSZ 
K5TAT =NSTAT + NMASS 
BIT*ARCL-NMASS*DSZ+DSZ/2. 

DO 20 1 = 1. N 
PFY( I ) =0.0 
20 PF7 ( I )=0.0 
TOTAL=0.0 

IF(TIMp-Tl) 30. 30. AO 
30 FT0T=FT0T1*T1ME 
GO TO 50 

AO FT0T»FT0T2*(T?-TIME) 

50 FATOR=FTOT/?. 

00 BO 1=1. MassN 
V AZ =< ST AT — 1 + I 
V I NOS* I-l 

ANGLE =p I FP* ( B I T + r '. r ,7. I NDS ) 

IP (ANGLE-PIP ) 70. 70, AO 



angle ®p i f 

70 PS(VAZ)=lt-COS(ANGLF)-TOTAL 

tptal»total+fs( VAZ ) 

FS ( V AZ ) *FS(N'AZ ) *FAT0R 
PFY(VAZ)«-FS(VAZ)*CTILT 
SO PF7 (MAZ )=FS(VAZ )#STILT 
AVPaOfO 

NST0P»KSTAT+MASSN-1 
DO RO MAS5-<5TAT.NST0P 

EF IND (VASS ) =SORT ( PF Y ( MASS ) #*2 + PFZ ( vASS ) **2 ) 
90 AVP=AMP+FFIND( MASS) 

RETURN 

END 
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SUBROUTINE CYCLE 

COMMON AOELT1 .ADELT2. AFLt ALPHA , amp , AMPER » ASFL .B IGKE 1 »B IGKE2 » 

1° IG'-'.PION.BUGGFR.COST .DAMPED .DAMPER .DELLDN .DELLAT .DEL TAT .00 
2S.D0Th.DFY .DFZ.DmAlF.D.DS.DSZ .DTH.DTX ,Dv »DVv. DWCG *D*OR< ,F »EM 
3AXP.FMAXT.FMINB.EMINT.FP5I • EPSE • ERT I A . EXTRA t EPS I L t FDAMP ,G » m 
aALT,HALT1»HALT2.hDAmP,HHALF,HSQU» 0LDT.P.PAST<E tPFY »P p Z .PIE. 
5PT M ASS.PW0R<.Q.RADIAN,r?IN5iCE.RVFLZ .SEP. SEPLAS.SEPM IN, SEPMAx, SIGMA 
ft* SINT .SVASH.SMIN.SN.SNZ » T • TDWCRK . T I ME » TPWORX » T YME » TZFORS ♦ V » THET A » 
7 w»ZFTA*^FCRS»T v IN»AVciTOT<EiPLASTW*ELAMAX*wOR<I m »ELASTW*TOTwR<» 
8CHNGWZ .ChNGm » T I MEZ » T I V YLD 

COWON ALPH.AMP1.AMP2. P» CONVRT • OE A »D I AY * EPS #h ,PE A »P I * P 

1 ISPR»PR»R*RH0*SIG*SL0PE»SWITCH.T1 . T2 . TBEGI N , TCONST . TCOOL . TE 
2A*TFINAl*TIVP*TRIMP,TZER*TOMEiTTwOiTZ»YIELO*TIWTOT 
INTEGER COWON 

COMMON I CIRC* IMP. IOTA. IRAID. J.JCYCLE. J^DAMP, JIMP, JM IN. JOLT. 12 » 
lJDRINTt JSTARTt J?OTALfKOOL» LINK* LI STEM •LOADtMOREiMPUNCHtMREA 
20 »MWR I TE .MY I ELD .'f .NFL . NFL 2 » NHAL e .NHALF1 »MLIM »NSFL.NTEMPS»NU 
3LL IT. NV.N YIELD. N1 »NE XT .NORATE »NG I VEN .NR EAD . LASTPR • J0LT2 .JBEGIN. 
AJUSTPR.JZ 

DIMENSION AL p H ( 5 ) .ALPHA I 1C 1 , 10 > «ASFL ( 5. 10. 101) .B I G* ( 10 1 ) . 8 I ON ( 

1101 ) .COST 1101). 0(101. 10) .DDS( 101 ) »DDTH( 10 1 ) • DE A ( 5 ) .D P Y( 101 ) 

2.DFZ( 101 ) .DS( 101 ) .OTh( 101) .DTX(101 ) .DV( 101) .DWllOl ) .E(6.10.101) »E 
3PS( 5.5) .EPS I ( 101 ) .EPSE ( 101 ) .F»S I L ( 5 . ID . 101 ) .EXTRA ( IOC ) • G ( 1 0 1 ) • N 
AFXT( 15) .OLDT ( 101 » 10 ) .P ( 101 • 10 I .PEA ( 10 ) » PFY ( 101 ) .PFZ( 101 ) »0( 101 ) , 
5RVFLZ (101 ) .SIG( 5. 5) .SIGMA! 5,10.101 ) .SINT ( 101 ) » SMASH ( 10 1 ) » SN ( 5 » 1 
ftC.101 ) .SNZ (5.10.101 ) .T ( 101.10) » TEA ( 5 ) , V ( lu 1 ) . W ( 10 1 ) » Y I ELD ( 10 1 ) . ZE 
7TA ( 10) 

J S J + 1 

JUSTPP-0 
CALL STRAIN 
CALL STRESS 

TIME= ( J-JZ )*DELTAT+TIVEZ 
IF (JSTART.LT. 1 ) GO TO 3 

IF( (TIME. GE.TFINAL) .CR. (TIME. LT.TBEGIN) ) GO TO 1 
CALL PRFZZ 
LOAD* 1 
GO TO 2 

1 L0AD*-1 

2 IF( ( IMP.LT. 1 ). OR.ITIME.lt. T IMP) JGO TO A 
CALL IMPULS 

IMP — 1 
GO TO A 

3 L0AD*-1 

A CALL EOUIL 
SE D LAS* SEP 
SFP*W (NHALP)-W( 1 ) 

IF (SEP-SMIN) 5. ft. ft 
5 SMIN-SEP 
T v I N* T I ME 
JM IN* J 

ft I e ( J” JPR I NT ) 7 . 9 . 1 2 
7 I - ( J) A ,10»A 
A IF(NYIFLD) 13. 13. 1C 
9 JRRINTsJPRINT+JCYCLE 
1C CALL PRINT 
NYIPL r '*P 
11 CO TC 1A 
1? JPdNT*J«-JCYCLF 
13 I c ( MQ9F . F D , 1 ) CALL e»9I\T 
1A RFTlIRN 
f\D 
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SU^ROUT I NT STRAIN 

COMMON ADELT1 . ADELT? .AFL .ALPHA .AMP ,AMPER »AS r L ,9 IGKE 1.9IGSE2. 

1 R I n*/, ■» I ^VJ, RUGGER* COST* DAMPED » DAMPER. DELLON. DELLA T .DEL TAT ,DD 
2 S.DDTH.OFY.CFZ . DhALF . D » DS*DSZ » DTK • DTX .DV »D« » DWCG *DW0R<» E »£m 
3AX n *EVAXT»F w INB»E v INT»£PSI • EPSE »ERT I A .EXTRA . EPS I L . FQAMP ,G »h 
A ALT tHALTl »HALT2 .HDAMP.hhALF .HSQU.OLDT .P .PA$T<E * p F y » u - Z t P I E » 
SPTVASSfPwORK «Q*PADIAN*RIMG<EtRvEL2»SEP»SEPLAS»SEPviN.sEPYAX.SIGMA 
A.SINT.S m ASH,SMIN.SN.SNZ.T.TDW0R<*TIVE.TPaCRK.TYME.TZF3RS.V.ThETA. 
7W * 7.FT A * ZF0R5 » TM IN • AvE * TOTK E * PL ASTW .FLAVAX * WORK I m » ELASTW » TOTnP< * 
8CHNfiMZ*CHN6M*TIMEZ»TIMYLD 

COMMON ALPh.AMP1.AMP2. 9. CONVRT » DEA »D I AM»FPS*H» D EA*PI »P 

1ISPR.PR.R.RH0.SIG.SL0PE.SWITCH.T1.T2.TREGI\.TC0\ST.TC00L.TE 

2A.TPINAL »T IMP, TR IMP, T2ER.TONE.T TWO* TZ. YIELD. TiVTOT 

C INTEGER COMMON 

COMMON I C I RC » I MP , I OT A » I R A I D » J » JCYCLE » JFD AMP , J I mp , jy i n , JOL T , I 2 » 
l jpr int • jstart. jtotal .kool.link.li stem. load. more .vpunch.mrea 
?D»MWRITE*myIELD»N»NFL»NFl2»NHALF,NHALF1, \il i m »ns p l » ntevps »nu 
3 L L IT » NV » N Y I E LD » N 1 .NEXT .NCRATF »NG I VEN .NREAD » LASTPR * JCLT2 » JBEG I N . 
AJUSTPR.JZ 

OIMFNSION ALPH ( 5 ) .ALPHA (101.10) • ASFL (5.10.101) »9IGM(101).9IG\( 

1101 ) .COST ( 101 ) .D( 101 .10) »00S( 101 ) »DDTH( 1 C 1 ) . DF A ( 5 ) .DFYt 101 ) 

2 »DFZ ( 101 ) OS ( 101 ) »0T l !( 101 ) .DTX ( 101 ) »DV( 101 ) »DW ( 101 ) »E (6 .10. 101 ) »E 
OPS (5. 5) »FPSI ( 1C1 ) .EPSE ( 101 ) .EPS I L ( 5 » 10 . 101 ) .EXTRA ( IOC ) .G ( 101 ) .N 
AFXT( 15) .OLOT(lOl.lC) »P( 101.10) .PFA( 10) »PFY( 101 ) .PFZ(101 ) »0( 101 ) . 
5RVFLZ (101 ) »SIG(5.5) .SI 3*A { 5 * 10 • 101 ) *S INTI 101 I . SMASH ( 101 ) .SM5.1 
A0.101 ) ,SNZ(5»10.10U »T( 1C1 .10) »TEA(5) »V( 101) »W( 101) .YIELD(lOl) »ZE 
7TAI10) 

DO 1 I * ? • N 
nnv- ovi i )-o\/( i-i ) 
oow»nv;( i )-ow( i-i ) 

DOS ( I )=DDV*COST ! I ) *DDW*S I NT ( I ) 

DTX ( I ) » ( OD!V» COST ( I )-DDV*SINT( I ) )/DSl I ) 

SINTI-SINT(I ) 

S INT ( I ) * S I NT ( I ) ♦COST ( I ) *DTX ( I ) 

COST! I ) *COST ( I I -SINT I *07X1 J ) 

1 CONTINUE 
0DV=DV ( 1 J-^VIN ) 

DDW»Dw( 1 )-DV(N) 

DOS ( 1 )=DDV*CC. r ,T(l ) ♦DD’*. *S I NT ( 1 ) 

DTX ( 1 ) = ( DO' 1 .'* COST ( \ ) —DO V*S I NT ( 1 ) ) / DS ( 1 ) 

SnT!*<!NTU ) 

ST T ( 1 ) s S I NT ( 1 ) +r*OSY 1 1 )«DTX ( 1 ) 

CO ST ( 1 ) = COST ( 1 )-SI\TI*DTXl 1 ) 
l r ( c !\T( 1 ) ,LT.. ) S I NT ( 1 ) «0.0 

*'•' 1 *N— 1 
DO 7 I = 

DOTH! I )OTX( !♦! 1 — fOT m ( I ) 

^ T ‘ ' ( I ) eOT*-* ! I ) ♦ O 0 T * ( ! ) 

2 CONTI M’JF 

-'OTH(M* n >TX( l)-DTX(N) 

OT l M * ) ='-T ,J (N ) > r '^T^( N 5 
DO s I « 1 , \ 

»/( I )»'/( I 1-t-^V ( I ) 

• ( I ) - l I ) ♦"'*•’ ( I ) 

DS ( I) =^S ( I)* r " s ! I ) 

■j CO* T I • IT 

T* 
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S'j l 'R01,'T I \E STRESS 

CO‘'VQN A r > r L ~ 1 » AD r LT 2 f/\FL # ALPHA »AVP »AVP£R ,asc l ,o IG<E 1 .BIGKE2 » 
lBIJjV.air-NtnUoGEP . COST *DAVPED»DAvPFRtDFLL3\»DELLAT. DEL TAT *DD 
2 S » DOTH » RF Y ,D C Z » 0 u ALF ♦ D »0S » DSZ » DTH » D7X » ) V , D’.\' » D/.’CG » DWCRK » F » E v 
3 AXR .EMAXT »pv I NP »FMI NT , EPS I . EPSE .ERT I A , E XTR A , EPS I L ♦ POAMP ,G , h 
4ALT .HALT 1 »HALT 2 .HOAMP , hh ALF » HSQU » OL DT , P . a A 5. T< c |3^ v t c F7 .PIE , 

5P TM ASS » PwOPK »Q » RAD I AN » R I NGKE .RVELZ » SEP » SlPLAS » SEP'-' I N » SEP'-'AX » S I GMA 
A » S I NT * S’ 'ASH , $.v IN * SN * SNZ . T , TO WORK .TIME. TP WORK * T Y V E . TZFORS ♦ V . THETA . 
71* , 7 ETA . Z C 0R3 « T v I N » AvE ♦ T0 T KE . PL ASTW . EL A*' A X . WO^K I M . EL AST '' . TOTWR< • 
SCHNGVZ ,CMMG*x,T IMFZ.TIWLD 

COM VON ALPH.AVP1.AVP2. B, CONVRT »DE A »D I AM .EPS »H »PE A .P I .P 

1 ISPR.PR.R.RH0.SIG.SL0PE.SWITCH.T1 , T2 , TB C G I N , TCONST . TCOOL , TE 
2 A, TF INAL . T I vp , TR I MP . TZER . TONE . T TWO ♦ TZ . Y I ELD . T I MTOT 

C INTEGER COMMON 

COMMON I C I RC ♦ I MP . I OTA . I RA 1 0 . J . JCYCLE » J C DAMP • J I M.P . JM IN . JOLT . I 2 . 

1 JPR INT, JSTART. JTOTAL. KOOL.LINK.L I STEM, LOAD. MORE. MPUNCH.MREA 
2D.MWRITE ,MY I ELD .N »N F L » NFL 2 .NHALF .NHALF1 » 'JL I v , NSFL ♦ NTEMPS »NU 
3LL IT.MV.NYIELD.Nl .NEXT .NORATE »NGI VEN .NREAD .LASTPR » J0LT2 ♦ JBEG I N ♦ 
4JUSTPR.JZ 

DIMENSION ALPMC5) .ALDHA1101.10) .ASFL ( 5. 10. 101 ) .3 IGM ( 10 1 ) . B IGN ( 

1101 ) .COST (101 ) ,D( 101 ,10) ,DDS( 101 ) »DDTH( 101 ) »DEA( 5 ) » DFY ( 101 ) 

2 .DF7 ( 101) ,DS( 101 ) .DT ! -*( 101 ) »DTX( 101 ) .DV( 101 ) »DW( 101 ) »E (6.10.101 ) »E 
3PS(5.5) .EPS I ( 101 ) ,EPSE( 101) ,E°SIL(5.10. 101 ) .EXTRA ( 100 ) »G( 101 ) .N 
4FXT ( 15) ♦''LOT (lCl.lO).P(lOl.lO) .PEA ( 10) .PEY HOD .PFZt 101 ) .Q ( 101 ) * 
5RVELZ ( 101 ) ,SIG(5.5> ♦ S I C.va ( 5 . 10 . 1 0 1 ) ,SINT( 101 ) .SMASH ( 101 ) .SN( 5.1 
60. 101 ) »SNZ ( 5 , 1C , 101 ) »t ( 101 , 10 ) »TEA( 5 ) »V ! 101 ) »W( 101 ) » YIELD! 101 ) »ZE 
7TA ( 10 ) 

data aster/*** /.blank/* «/ 

DO 16 1 = 1, \1 
YIELD ( I ) =9LAM< 

° I GN ( I ) =0 . 0 
P I CM ( I) =0.0 
DO 15 K=l»N« r L 

DSN = E ( 1 ,K.I ) M DDS( I )-ODTH( I ) *ZETA ( K ) ) /DSZ 
FN=0.0 

IF (H( I ,K ) .LF.0.0 ) GO TO 1 
PIK = 1.0/P( I .< ) 

C* = 1.0/n(I .O/OFLTAT/Ell.K. I ) 

1 DO 14 L=1»NSFL 
SML.K.I ) = S “H L . K , I ) + DSN 

IF CHAMFER. GT. 0.0) GO TO 13 
I F ( R ( I.K). LF.0.0) GO TO 7 
I p ( SN I L » K » l ) -SNZ ( L » K ♦ I ) >2,13.5 

2 IF(SN(L.K.I )+SNZtL»K.I ) ) 3. 13 .13 

3 SNY=SNZ(L.K.I )*C.0+(C6* ABS ( DSN ) > **P IK ) 

IF (SN (L.K. I l+SNY 14.13.1 3 

4 SN (L.K. I )*— SNY 
GO TO 11 

5 SNY=SNZ(L»K»I )*( 1.0+IC6# ABS ( DSN ) > **P IK ) 

I p ( SN ( L »K » I l-SNY) 13,13,6 

6 SN ( L « K , I ) » 5 N Y 
GO TO 11 

7 IP (SN (L.K. I ) -SNZ (L.K. I ) I9.13.R 
R SN(L.K,I ) = SNZ (L.K,! ) 

GO TO 11 

9 IF (SN (L.K. I ) +SNZ ( L »K , I )) *.0,13.13 

10 SN ( L • K , I ) = — SN7 ( L »K • I ! 

11 Y I FLO ( I ) * ASTER 

IF (MYIFL0)13. 12.13 

12 vviFL^sJ 
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T I mvl^sT IMP 
\Y I FLO» 1 

1 PN = PN+SN(L»<»I )*ASFL(L»Kt I ) 
lw CCNT I NU r 

R I GN ( I ) «R I GN C I )+FN 
B I GM ( I ) = 9 ICiM ( I ) +FN*ZET A ( K ) 
15 CONT I MU'! 

1A CONTI NUF 
RETURN 
END 
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SU u ROUT I NF EQUIL 

C^vvoN! ADELT 1 . ADELT 2 » AFL . ALPHA . AMP • AMPER • ASFL . B IGKE 1 . B I GKE2 . 

1« I GM.« I GN.R'jGGER. COST. DAMPED. DAMPER .DELLON.DELLAT.DELTAT.DD 
2 S » DOTH * DFY .D^Z , DhALF . D »DS . D SZ » DTH , DTX »DV »Dh * DWCG .DWORK • F » EM 
3AXB.EMAXT.EMINB.EMINT.EPS! »EPSE»ER T IA»EXTRA»EPSIL»FDAMP»G»H 
AAL T. HALT 1 .HALT? » wDAMP « rHALF .HSQU.OLDT »P .PASTKE »PFY »PFZ » P I E » 

5PT V ASS *PwORK .G.RADIAN.RINGKE.RVELZ.SEP.SEPLAS.SEPVIN.SEPMAX.SIGMA 

a. si nt .smash.smin.sn.snz.t.tdwork.time.tpwckk.tymc.tzfors.v.the TA. 

7W.ZETA»ZF0RS.TMIN.AVE.T0TKE.PLA.STW.ELAV|AX.W0RKIM.ELASTW.T0TWRK. 
BCHNGMZ .CHNGM »T IMEZ »T I VYLD 

COMMON ALPH.AMP1.AMP2. B. CONVRT . DEA .0 I AM » EPS »H . PE A .P I . P 

1ISPR.PR.R.«HO.SIG.SLOPE.SWITCH.T1.T2.T3EGIim.TCO\ST.TCOOL.TE 
2A.TFINAL.TIMP,TRIWP,TZER.TONE.TT^/O.TZ. V IFLD»TIMTOT 
C INTEGER COMMON 

COMMON ICIRC. IMP. IOTA. I RAID .J.JCYCLE.J^OAMP. JIMP, JMIN. JOLT .12. 

1 JPRINT.JSTART.JTOTAL.KOOL. LINK. LI STEM .LOAD. MORE. MPUNCH.MREA 
2D.MWP ITF .MYIFLD.N.NPL.NFL2.NHALF.NHALF1 .NLIM.NSFL.NTEMPS.NU 
3LLIT.NV.NYIFLD.N1 .NEXT .NOR ATE .NG I VEN .NREAD « LASTPR . J0LT2 .JBEGIN. 
AJUSTPR.JZ 

DIMENSION ALPH ( 5 ) .ALPHA ( 101.10) . ASFL ( 5 . 10 . 10 1 ) » B I GM ( 10 1 ) . B I GN ( 

lion .cost <101 > »d< 101.101 .ddsi 101 > .ddthi 101 i .deai 5 ) .dfyi 101 ) 

2.0FZ ( 101 ) .os ( 101 ) . DTH ( 101 ) .DTX ( 101 ) .DV ( 10 1 ) . Dw ( 10 1 ) » E ( A . 1 0 » 1 C 1 ) . E 
3PSIS.5) .EPS I (101) » EPSE (101) .EPS I L ( 5 . 10 « 101 ) .EXTRA ( 100 ) .G( 101 ) »N 
AEXT( 15) .OLOT ( 101 .10) .P( 101. 10 ) .PEA( 10) .PFY( 101 ) .PFZ( 101 ) . Q ( 1 0 1 ) • 
5RVELZ ( 101 ) »SIG( 5.5) ♦ S I GMA ( 5 . 10 . 10 1 ) .SINT ( 101 ) » SMASH ( 101 ) *SN( 5.1 
AO. 101 ) »SNZ(5.10 .101 ) .TCOl. 10) .TEA ( 5 ) . V ( 10 1 ) » W ( 10 1 ) . Y I ELD ( 1C 1 ) . ZE 
7TAI1C) 

DWORK =0 • 0 
PWCRK =0 • 0 
ZFORS=0.0 
5 DO A 1 = 2 .N 

0 ( I ) = ( °. I GM ( I ) — B 1 3M ( I - 1 ) ) /DS ( I ) 

A CONTINUE 

0 ( 1 ) = I R I GM ( 1 ) -8 IGM ( N ) ) /DS ( 1 ) 

IF (DAMPFR ) Q.9.7 
7 DO A 1 = 1 » N 

DFY( I )=-DV( I )*AMDPR 
DF Z ( I ) =— DW ( I )*AMPFR 
A CONTIMIJF 
9 DO 10 1=1. N 
K= 1*1 

IF(I.fq.m) 

DV ( I ) =^Vl I )+ BUGGER* ( B I GN ( K ) *COST ( K ) -R I GN ( I ) *COST ( I )-Q ( K ) *S I NT ( < ) +Q 
1(1 )*S!NT(I ) + PFY ( I ) +DFY ( I ) ) 

DW ( I ) =0W ( I ) +BUGGER* ( B I GN( K ) *S I NT ( K ) -B I GN ( I ) *SIMT( I ) +Q ( K ) *COST ( K ) -Q 
1( I )*COST( I ) +PFZ ( I J+DFZ ( I ) ) 

PWORK = PWOR< + P p Y ( I )*DV( I l+PFZ ( I )*DW( I ) 

DWORK =OWOR<-DFY< I )*Dv( I ) -DFZ ( I )*DW( I ) 

10 CONTINUF 
TPW0RK=TPW0RK+PW0RK 
TDWORK = TDWORK-HDWORK 

IF (LOAD.LT .0 ) GO TC 12 
DO 11 I=1.N 
PFY ( I )=^,n 
P C Z ( I ) = 1.0 

11 CONTI M UF 
1? RFTURN 
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SUBROUTINE COOL IT 

CO WON ADELT1 » ADFLT2 • AFl * ALPHA » AMP , AMPER , ASFL • B I GKE 1 *9 I GKE 2* 

IF I GM.fliGN. RUGGER, COS T.DAMPED, DAMPER .DELLON .DEL LAT.DEL TAT, DD 
2S,DDTH,DPV .D C Z , DHALP »D »DS • DSZ , DTH ♦ DTX ,DV *Dw » DWCG » DWORK » E . EM 
3AXP.EMAXT »EMIf4B»EMINT »E D SI » EPSE , ERT I A , EXTRA , EPS I L , FOAMP ,G # H 
4ALT .HALT1 .HALT2 »H0AMP.HHALF*HSQU»0LDT»P.PASTKE »PF V ,PFZ.PIE» 
5PTMASS»PwOR< »Q, RADI AN » R I NGKE »RVELZ • SEP, SEPLA S • SEPM I N , SEPMAX . S IC-MA 
A , S I NT , S v ASH ♦ SM I N , SN , SNZ , T , TDWORK .TIME » TPWQRK ,TVME,T2FORS»V, THETA, 
7W.ZETA.ZF0RS.TMIN.AvE .TOTKE ,PLASTW.ELAVAX,\ORK IM.ELASTW.TOTWRK, 
8CHNGMZ , CHNGM , T I MfZ » T IMYLO 

COMMON ALPH, AMPl ,AVPP , R, CONVRT,DEA,DIAV,EPS*H,PEA,DI ,P 

1 ISPR.PR ,R.RHO,SIG,SLOPE,SWI TCH.Tl , T2 * TB EG I N , TCOMST , TCOOL , TE 
2A, T^INAL ,T IMP.TR I MP.TZER. TONE »TTWO,TZ *Y I ELD. T IMTOT 
C INTEGER COMMON 

COMMON ICIRC.IVP, IOTA, I RAID. J.JCYCLE,JFDAMP, JIMP, JMIN, JOLT. 12, 
1JPRINT.J START, J TOTAL ,KOOL ♦ L I NK , L I STEM , LOAD .MORE .MPUNCH. VRE A 
2D , m'j/r I TE #my I ELD *N ,NFL , NFL2 » NHALF »NHAL F 1 ,NL I M ,NSFL ,NTE V PS »NU 
3LL IT.NVtNYIFLD.Nl .NEXT .NORATE . NG I VFN *NREAD . LASTPR . JOLT2 ♦ JPEG I ?i , 
AJUSTPR, JZ 

DIMENSION ALPH(5) .ALPHA ( 101 » 10 I * ASFL ( 5 . 10 . 10 1 ) .9 1 GM ( 1 0 1 ) • B IGN ( 

lion .cost (iod.d(ioi.io) ,dds ( 101 j .ddthi i 01 ) . dea 1 5 ) »dfyi ici j 

2.DFZ ( 101 ) »DS( 101 ) ,DTM( 101 ) . DTX ( 1 01 ) »DV( 101 ) ♦ DW ( 10 1 ) . E ( 6 * 10 . 1 0 1 ) »E 
3PS (5.5) .EPS I ( 101 ) .EPSE ( 101 ) ♦ EPS I L ( 5 ♦ 1 0 . 1 0 1 ) .EXTRA ( 100) ,G( 101 ) .N 
APXT ( 15) .OLDT ( 101*10) »P ( 101 ♦ 10) *PEA( 10) ,PFY( 101 ) tPFZ ( 101 ) »0( 101 ) . 
5RVELZ ( 101 ) . S I G ( 5.5) .SIGMA ( 5 .10*101) »SINT< 101) « SMASH (101 ) »SN( 5.1 
50,101) .SNZ (5,10 » 101 ) .T(lOl.lO) » TEA ( 5 ) ,V( 101 ) »W ( 101 ) .YIELD ( 101 ) ,ZE 
7TA ( 10 ) 

HALT=-1 

IF (KOOL.GT.O )G0 TO 2 
KOOL= 1 
M I R = 0 
m A R = 0 

SERMAX = 0. r ' 

SE°m I N=P I E*P 
JUMP=0 
A y F = 0 • 0 
ADD I T =0 • 0 

2 m I P = Mjn+1 
ADDIT = ADDIT+SEd 

I c (MIR.LT. 100) RETURN 

3 A\/F*ADD I T / 100 • 

ADD I T =0 . 0 

Viq = 0 

0 IF (JUMP) 10*10,0 
P VAR=-1*MA9 
JUMP=-1 

10 IC(VAO) 19,11,14 

C FIRST TImp THROUGH 

11 IP ( AVF-DIAM) 12.24,13 

C SFP DECRFASING 

12 mar=- 1 

GO TO 24 

C SEP INCREASING 

13 mar=i 

GO TO 24 

C SEP INCREASED L /• S T TIME 

14 IF ( AVF-SFPMAX ) lc. .15.15 

C NEW maximum SFP 

15 SEPMAX=AVF 
GO TO 24 
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C SEP AT A PKA< 

1* IF(JIJMp) 17*lR*lfl 
C SFCONO PEAK 

17 HAL T= 1 
RETURN 

C c I R ST PEAK 

18 JUMP=1 
GO TO ? 4 

C SEP DECREASED LAST TIME 

19 I* 7 (AVE-SEPMIN) 20*20.21 

C NEW MINIMUM SEP 

20 SEP^INsAVE 
GO TO 74 

C SEP AT A MINIMUM 

71 I p { JUMP ) 27.23*23 
C SECOND MINIMUM 

22 HALT= 1 
RETURN 

C FIRST minimum 

23 JUMP=1 
74 RETURN 

END 





SUBROUTINE STOP 

COMMON ADELT1 .ADELT2 • AFL . ALPHA * AMP . AMPER . ASFL . B I GKE 1 • 9 I GKE 2 t 
lBir 5 v,RlGN. BUGGER .COST .DAMPED. DAMPER .DELLON .DELLA T , DELTAT . DD 
2S.DDTH.DFY ,DFZ .DHALF .D.DS.DSZ .DTH.DTX.DV.DW.DWCG.DWCRK.E.EM 
3 AXB.EMAXT. EM I NB.EMINT.EPS I »EPSE»ERT I A. EXTRA.EPS IL»FDAMPiG»H 
4ALT.HALT1 .HALT2 .HOAMP.HHALF .HSQU.OLDT *P*PAST<£ .PFY . PFZ . P I E » 

5PTMASS * PWORK .0 * RAD I AN » R I NGKE » RVELZ » SEP » SEPLAS » SEPM I N » StPMAX » S IGMA 
ft » S I NT *SMA5 H»S V IN»SN»SNZ»T iT DWORK » T I ME » T PWORK » T YME » TZFORS » V » THETA » 
7W.ZETA.ZFORS.TMIN.AVE.TOTKE.PLASTW.ELAMAX.WORKIM.ELASTW.TOTWRK. 
9CHNGMZ » CMNGM » T I MEZ t T I MYLD 

COMMON ALPH » AMP 1 . AMP 2 t B# CONVRT . DE A . 0 I AM * EPS . H . PE A * P I . P 

1 1 SPR » PR » R » RHO » S IG .SLOPE »SW I TCH » T 1 » T2 » TB EGI N * TCONST . TCOOL » TE 
?A,T^INAL.TIwP.TRII^P»TZERtTONE»TTWO»TZ»YIELD.TIMTOT 
INTEGER COMMON 

COMMON I CIRC* IMP, IOTA. I RAID. J. JCYCLE » JFDAMP , JIMP* JMIN. JOLT. 12 • 
1JPRINT. JS TART. J TOTAL »KOOL . L INK *L I STEM .LOAD .MORE .MPUNCH. MREA 
2D.YWRITE .MYIELD.N.NFL.NFL2.NHALF.NHALF1 *.NL IM.NSFL.NTEMPS.NU 
3LLIT.NV.NYIELD.N1 .NEXT .NORA TE . NG I VEN .NREAD . LASTPR , JOLT2 . JBEG I N . 
AJUSTPR. JZ 

DIMENSION ALPH ( 5 ) .ALPHA! 101.10) • ASFL ( 5 ♦ 10 » 10 1) »B IGM ( 10 1 ) • 3 I GN ( 

1 1C 1 ) .COST ( 101) *D( 101.10) .DDS! 101 ) ♦ DDTH ( 1 0 1 ) . DE A ( 5 ) . DF Y ( 101 ) 

2 *DFZ ( 101 ) »DS( 101) . DTH ! 101) »DTX (101).DV(1C1).DW(101).E(6.10.101).E 
3PS ( 5 .5) .EPS I (101) .EPSE(lOl) .EPS I L ( 5 . 10 . 101 ) . EXTRA ( 100 ) .G! 101 ) .\ 
4EXT ( 15) .OLDT (101.10) *P( 101.10) .PEA! 10) .PFY ( 101 ) .PFZ! 101 ) .0! 101 ) . 
5RVELZ ( 101 ) .SIG! 5.5) .SIGMA! 5. 10. 101). SI NT <101) .SMASH! 101 ) .SN( 5.1 
*0.101 ) .SNZ15.10.101 ) .T< 101. 10) .TEA! 5) .V! 101) »W( 101 ) .YIELD! 101 ) .ZE 
7T A ( 1 0 ) 

I P t J I MP ) 1 , 1 , 3 

1 BICKE 1=0.0 

2 PI GKE 2=0.0 
NULL I T = 0 

totke=elamax+tpwork+workiv-plastw 

TESTKE=TGTKE».001 

3 JIMP = JIM=> + 1 

CALCULATE RING KINETIC ENERGY 
R I NGKE = () . 0 
DO A 1 = 1, N 

RINGKE=RINGKE+DV< I ) **2+DW ( I )**2 

A CONTINUE 

RINGKE=RINGKE/BUGGER 
I p (9l GKE1.LT .RINGKE) BIGKE1=RINGKE 
IF (JIMP. LT. 100) RETURN 
J I MP= 1 

IF (BIGKE1.LT .TESTkE) NULLIT=1 

B I GKF 1=0.0 

RETURN 

END 


SUBROUTINE RECORD 

COMMON ADELT1 .ADELT2 . AFL . A LPHA . AMP , AMPE R . ASFL . B I GKE 1 .BIGKE2. 
lRir,M,BIONi a UGGERiCOST»DAMPED»DAMPER .DELLON.DELLAT .DELTA T »DD 
2S.DDTH.PFY.DFZ.DHALF .D.DS.DSZ . DTH , DTX .DV . Dw . DWCG . DWORK » E . EM 
3AXP.EMAXT.FMINR.EMINT.EPSI * EPSE . ERT I A , E XTRA . EPS I L . FDAMP ,G ♦ H 
4ALT.HALT1 »HALT2 tHDAMP.HHALF .HSQU iOL DT . P . PAST<E i PFY ♦ PFZ * P I E » 
5PTMA5S» 3 W0RK»Q»RADIAN»RINGKE»RVELZ»SEP»5EPLAS»SEPMIN»SEPMAX»SIGMA 
5. SINT .SMASH. S V I N.SN. SNZ. T. T DWORK. TIME. TP WORK. TYME.TZFORS.V.THET A. 
7w » 7 ET A » ZFCRS • TM I N » AVE » TOTKE .PLASTW » ELAVAX » WORK IM .ELASTW » TOTWRK » 
8CMNGMZ .CHNGM , T I MFZ . T I MYLD 

COMMON ALPH.A'IPI »AMP2» B» CONVRT . DE A .D I AM . EPS »H . PE A .P I . P 

1 ISPR.PR.R.RHC.SIG.SLOPE.SWlTCH.Tl .T2.TBEGIN.TCONST.TCOOL.TE 
2A.TFINAL , T IMP. TRIMP.TZER. TONE. TTWO. TZ . Y I ELD » T I MTOT 

INTFGER COMMON 

COMMON ICIRC. IMP, IOTA. I RA I D » J » JCYCLE » JFDAMP . J I MP . JM I N » JOLT . 12 » 

1JPR INT, JSTART. JTOTAl .KOOL.LINK . L I STEM . LOAD . MORE .MPUNCH . MREA 
2D * MwR I TE »MYI tLD »N »NFL » NFL2 » NHALF .NHALF1 »NL IM *NSFL .NTEMP5 »NU 
3LL IT tNV»NYIELD».Nl . NEXT .NOR A TE . NG I VEN .NR EAD • LASTPR . JOLT2 .JBEGIN. 
4JUSTPR, JZ 

DIMENSION ALPI-H5) * ALPHA ( 10 1 » 10 ) • ASFL ( 5 t 10 » 10 1 ) »B I GM ( 10 1 ) • B I GN ( 

1101 ) .COST (101) .0(101.10) .DDS (101) .DDTH( lui ) »DEA(5 ) »DFY( 101 ) 

2 »DFZ ( 101 ) »DS( 101 ) .DTH( 101 > .DTXU01 1 *DV( lOl) *DW ( 101 ) .E (6*10.101 ) »E 

3 PS ( A. 5) .EPS I ( 101 ) . E P S E ( 101 ) .EPS I L ( 5 • 10. 101 ) .EXTRA ( 100 ) .G ( 101 ) .N 
4EXT( 15) *OLDT( 1C1 .10) »P{ 101.10) »PEA( 10) .PFY ( 101 ) .PFZ ( 101 ) »Q( 101 ) . 
5RVELZ (101) .5 I G ( 5 » 5 ) . SI GMA ( 5 . 1 0 . 1 01 ) .S I NT ( 1C 1 ) . SMASH ( 101 ) .SN( 5.1 
AO . 1C 1 ) .SNZ (5. 1C .101 ) .T( 101.10) » TEA ( 5 ) .V ( 10 1 ) . W ( 10 1 ) .YIELD ( 101 ) »ZE 
7T A ( 1 0 ) 

DIMENSION STRFZ(IO) 

GO TC ( 1 .3.5.13.15.17) .LINK 

1 WRITE ( MWR I TE » 2 ) 

2 FORMAT (• 1JSTART=0 HAS BEEN SPECIFIED'/.' THEREFORE. RESPONSE OF RI 

1 NG TO INITIAL STRESSES DUE TO IMPOSED TEMPERATURE DISTRIBUTION FOL 
2LOWS USING ARTIFICIAL TIME...'/.' NO EXTERNAL FORCES WILL BE INCLU 
3DED UNTIL EITHER PLASTICITY IS CONSIDERED FINISHED AND RING MOTION 
A IS DAMPED OUT OR UNTIL SPECIFIED.' ) 

RETURN 

3 WRITE(MWRITE.A) J. TIME. SEP 

4 FORMAT (• 1PLASTICITY IS CONSIDERED FINISHED AT CYCLE NO. '15.'. THE 
1ARTIFICIAL TIME IS'F12.9/' THE PRESENT RING SEPARATION IS'F12.9/'. 
2. .DAMPING OF THE ELASTIC MOTION STARTS IMMEDIATELY.') 

I e ( JUSTPR.EO.O) CALL PRINT 
RETURN 

5 WRITE(MWRITE.6) TIME. DAMPER 

A FORMAT* • 1R I NG ELASTIC REPONSE WAS ARTIFICIALLY DAMPED AT' F10.6. 

1' SFC ' / » ' USING A DAMPING VALUE OF'F7.3*' LB-SEC/ I N. '/. ' MOTION IS 

2 CONSIDERED COMPLETELY DAMPED.'//) 

WR I TE ( MWR I TE » 7 ) (K. K*l. NFL) 

7 FORMA T ( ' THE FINAL EQUILIBRIUM STRESS DISTRIBUTION IS AS FOLLOWS.. 
1. ' //♦ ' I K =• .IOC 13. 9X) ) 

WRITE (MWR ITE.fl) 

? FORMAT ( ' 0 ' ) 

DO 12 1-1. N1 
DO 10 K* 1 »NFL 
FN = 0.0 

DO 9 L-l.NSFL 

FN=FN+SN ( L «K . I )*ASFL(L.K.I ) 

9 CONTINUE 

STREZ (K ) =FN/AFL 
1C continue 

WRITE (MWR (TE. 11 ) I*ISTREZ(K) .<*1.NFL> 
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11 PORYATt I5»1X,10E12.<*> 

12 CONTINUE 

IP( JUSTPR.EQ»0) CALL PRINT 
RETURN 

13 WRITE (VWRITEtlA) 

FORMAT!//' NO EXTERNAL FORCES HAVE BEEN SPECIFIED...'///) 

RETURN 

IS WRITE(MWRITE»16) J. TIME. SEP 

If. PQRMATl '1PLASTICITY IS CONSIDERED FINISHED AT CYCLE N0.'I5»/»' THE 
1 REAL TIME I S ' F 1 2 • 9 » 1 THE PRESENT RING SEPARATION I S ' F 1 2 . 9 / . ' . . . DA 
2MPING OF THE ELASTIC MOTION STARTS IMMEDIATELY.') 

IF ( JUSTPR.FQ.O ) CALL PRINT 
RETURN 

17 WR I TE ( MWR I TE • 1 B ) SMI N. TV IN 

IP FORMAT ( ' 1 ThF ARTIFICIAL TIME PHASE OF THE RUN HAS BEEN COMPLETED.' 
1/' THE REAL TIME PORTION STARTS IMMEDIATELY,..'/// 

2* THE MINIMUM SEPARATION REACHED BY THE RING DURING THE ARTIFICIA 
3L TIME PORTION OF THE RUN «'F10.6/' ARTIFICIAL TIME OF MINIMUM SE 
4PAR4TI0N = ' F 1 0 • 7 ) 

RETURN 

END 


1^9 



n n n 


SUBROUTINE PRINT 

CO'AVCN ADFLT1 .ADELT2 t AFL » A LPHA . AMP . AMPE R . ASFL . B I GKE 1 . B I G<E2 * 
lPIG’-'.PIGN .RUGGER* COST .DAMPED. DAMPER* DELL JN.DE LLAT » DEL TAT, DD 
2 S » DOTH # OF Y .DFZ .DHALF.0.DS.DSZ.DTH.DTX.3v.0*.DWCG.DW0RlC.E.EM 
3AXP.EMAXT.EVI\B.EMINT.EPS! • EPSE »FRT I A . E XTRA , EPS I L » F3AMP .G .H 

4 ALT .HALT 1 .HALT? tHDAMP *HHALF *HSOU »OL DT . P . PASTKF » PFY . PFZ • P I E » 

5P7VASS *PWOR< .O.RADI AN , R I NG<E »RVELZ . SEP » SEPLAS . SSPM I N • SEPVAX . S I GVA 
A • S I N T . S V ASH * SYI I N * 51 N . SNZ * T . T DWORK . T I VE » TPWORK . TYME . TZFORS • V * THETA t 
7W » 7.E T A .ZFORS » TV I N » AVE » TuTKE » PLA5TW » EL A VAX » WOR< IM » ELASTW » TOTWRK » 
flCHNGMZ .CMNGV.T IVFZ .T IVYLD 

CCvvON ALPH . AVP 1 • AVP2 t B. CONVR7 »DEA »D I A v f EPS .H .PE A .P I .P 

llSPU.PR.U. ?HO»SIG.SLOP£*SWlTCH»Tl.T2»TBEGIN»TCONST.TCOOL»TE 

2 A * T F INAL »T IMP* TRIMPtTZERi TONE »T TWO* TZ. YIELD# T I VTOT 

C INTEGER CO'*voN 

COW, ON ICIRC.IMP.IOTA. IRAID.J* JCYCLEtJFDAVP. JIMP. JMIN# JOLT# 12# 
lJPKINT #JSTART » J TOTAL tKOOL » L I NK ♦ L I STEV # LOAD # MORE » VPIJNCH. VREA 
?D*VV.’RITF,yYIELD»N'*NFL,NFL2»NHALF#NHALFl #NL I M .NSFL .NTEMPS #NU 
3LL IT.NV.NYIELD.N1 *NEX T .NOR A TE #NG I VEN » NREAD * LASTPR . JOl T2 # J8EG I N . 
4JUSTPR.JZ 

DIMENSION ALPH(5) . ALPHA ( 10 i. 10) .AS FL(5» 10*101) #B I GM ( 10 1 ) • B I GN ( 

1101 ) .COST 1101) .0(101*10) • DOS ( 101 ) . DOTH { 101 ) #DEA( 5 ) • DF Y ( 101 ) 

2.DFZI 101 ) »DS( 101) • D T H ( 101 ) . DTX ( 10 1 ) »DV ( 101 ) « DW t 10 U .E ( 6 . 10 . 10 1 ) * E 

3 PS ( 6.S) .EPS I C 101 ) »EPSt ( 101 ) • E»S I L < 5*10. 101 ) .EXTRA ( 100 ) .G (101 ) .N 
A F X T ( :<j) .HLDT (101.10) #P(101»10) »PEA(1Q)#PFY(101) »PFZ ( 10 1 ) .0 ( 1 0 1 ) » 

5 R V E L Z (101 ) .510(5.5) » S I G V A (5.10.101) .SINT ( 101 ) . SMASH (101 ) »SN( 5.1 
60.101 ) .SNZ (5. 10.101 ) »T( 101.10) .TEA( 5 ) »V( 101) .W( 101 ) »YIELD( 101 ) »ZE 
7-A ( 10 ) 

JUS7PR=1 

CALCULATION OF RING ENERGY DISTRIBUTION 

R I NGXE=0 • 0 
DO 1 1 = 1 » N 

RINGKE=RINGK£+DV< I )**?+Dw( I )**2 

1 CONT I NUF 

C KINFTIC ENERGY OF TOTAL RING 

RI\G<E=R ING<E/?./«UGGEP 

I c ( J.FQ.O.AND.VORF.EQ.O) R I NGKE=R INGKE/2. 

FLASTW=0.0 
DO u L=1*NSFL 
DO 3 <=1»NFL 
DO 7 1=1. N 

ELASTW = ELASTW+SN(L.K ,1 ) **2*A.SFL ( L .K » I ) / E ( 1 . K • I ) 

2 CONT I NUF 

3 CONTINUE 
A CONTINUE 

C ELASTIC ENERGY OF TOTAL RING 

FLASTW=ELASTW*DSZ/2. 
wiORF = 0 

I c ( J» FQ«0 ) ELAVAX = ELASTW 
TOTWRKsTPWORK+WORKIVf ELAMAX 
? L A S T r T 0 T R K - E L A S T W - T D W 0 R K - R I N G < E 
C DETERMINATION OF STRAINS AT INNER AND OUTER SURFACES 

DO 6 1=1. N 
ES=DS( I J-OSZ 
ET=HHALF*DTH( I ) 

EPS K I )« (ES-ET ) /DSZ 
EPSE ( I )=(ES+ET)/DSZ 
6 CONTINUE 
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* 


PR I N T— OUT RF SUL TS 

WRITE (WWRITE»6) J.TI^EtSEP 

A FORv,AT('l J = • I 5 . * TIME* • F 10 • 7. 5X. 'SEPARATION (IN.) *'F 9.5) 

WR I TE ( MWR I TF • H ) TOTWRK • ELAMAX » WORK I M . TPwJRK 

8 FORVAT(5X» 'TOTAL ENERGY INPUT INTO RING *'F10.3» ' (IN-LB)'/7X» 

i'initial elastic energy *'fio.3.' ih-lb)'/ 

27X. ' IMPULSIVE ENERGY INPUT ■ • F 1 0 • 3 • • (IN-LB: '/ 

37X • 'EXTERNAL FORCE INPUT *'F10.3*' (IN-LB)') 

WR ITE (VWRITE.9 ) R I NGkE . ELAS TW .TOWORK *PL ASTW 

9 FORMAT! //»5X. • TOTAL ENERGY IS NOW DISTRIBUTED AS FOLLOWS..*' 

1/7X* 'KINETIC ENERGY O c RING ■•F10.3#' (IN-L?? 1 / 

27X. 'ELASTIC ENERGY' . 13X* • F10.3. • (IN-LB)'/ 

3 7X » ' DAMP j mg ENERGY* • 13X • • ■ • F 10. 3 ‘ ' (IN-LB)'/ 

A7X, 'PLASTIC WORK' .I5X, '-'F10.3. • (IN-LB)') 

I e ( LOAT ) 10.12.12 

10 WRITElVWRITE.il J 

11 FORMAT ( ' 0 NO FORCE ACTING DURING THIS CYCLE') 

GO TO 35 

12 WRITE (VWRITF.13) AVP 

13 FORMAT! '0 THE FORCE RESULTANT ACTING ON THE RING DURING THIS CY 


1CLE IS'. FI?, A) 

3 5 WRITE ( v WR I T E • 3 6 ) 




3A FORvArdOOHO I 

V 

W 

N 

1 v EPS I 

DO 38 I-l.N 

EPSE 

YIELD) 



WRITE ( MWR I TE » 37 ) I .V ( I ) »W ( I ) . B I GN ( I ) . B I GM ( I ) .EPS I ( I ) .EPSE! I) .YIELD! 
II ) 

3 7 FORMAT! I 7 , ?F U . R , 2F 14. S . 2F 14 . 8 . 6X t A2 ) 

36 CONTINUE 
RETURN 
END 
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SUBROUTINE FINAL 

COMMON ADELT1,ADELT2.AFL,ALPHA,AMP.AMPER.ASFL»8IGKE1.B1GKE2. 
i n ion i gn .bugger .cost .damped .damper , Mellon. dellat .oeltat.oo 

2S»DOTH.OFY.OFZ.DhALF.O»DS»DSZ»OTH.DTX.DV.DW.DWCG.DWORK.E*EV 
1AXR.EVAXT.EVIN8.EMIM.EPSI .EPSE.EMT I A .EXTRA .EPS IL .FDAMP .G.H 
LALT .llALTl .HALT2 .HOAMP.HHALF .HSOU.OLOT .P.PASTXE .PFy .PF2 .P IE • 
SPTVASS.PWORK.O.RAOIAN.RINGKE.RVELZ . sep, seplas.sepmin.sepmax .sigma 
6 *5 INT .SMASH.SMI N.5N.SN2 *T. TDWORK .T I ME .TPWORK »TYM£ .T2FORS.V. THETA. 
7W.2ETA.2FC?S.TMIN.AvC.TOTXE.PLASTW.ELAMAX.V*ORXIM.ELASTM.TOT*«RX. 
8CHNGMZ . CHNGV . T I VEZ . T I MYLD 

COMMON ALPH.AVP1.AVP2, B* CONVRT.DEA.DIAM.EPS.H.PEA.PI ,P 

1 ISPR.PR .R.RHO.S IG.SLOPE .SWI TCH.T1 .T2.TBEGIN.TC0NST .TCOOL.TE 
2 A, TF INAL »T IMP , TRlvp , TZER » TONE » TTwO » TZ *Y I ELD* T IMTOT 
C INTEGER COMMON 

COMMON ICIRC.IMP.IOTA.IRAID.J.JCYCLE.JFDAMP.JIMP.JMIN.JOLT.I2# 

1 JPRINT.JST ART .JTOTAL.KOOL.L INK *L I STEM .LOAD .MORE. MPUNCH.MREA 
20 *M'.VR I TE, MY I ELD .N, NFL .NFL2.NHALF.NHALF1.nl IM.NSFL.NTEMPS.NU 
ILL I T.NV.NYIELD.N1 .NEXT .NORATE .NGIVEN.NREA0.LASTPR.J0LT2.JBEG IN. 
AJUSTPR.JZ 

DIMENSION ALPHC 5) .ALPHA! 101.10) .ASFLIS, 10. 101) *BIGM( 1011 .BIGNI 
1101 ) .COST! 101) .01 101,10) .DOS! 101) .DOTH! 101 ) .DEA(5) ,DFYt 1C1) 

2.DF2! 101 ) «DS( 101) .OTH! 101 1 ,DTX ( 101 ) ,DV< 101) .DW! 101 ) *E (6 . 10. 101 ) *E 
3PS ! 5 , 5 ) .EPSI (101) .EPSE (101) .EPSIL ( 5 • 10. 101 ) .EXTRA ( 100 ) ,G( 101 ) ,N 
AEXT115) .OLDT! 101.10) .P (101.10 ) .PEA (10). PFY! 101). PF2! 101 I.O! 101) • 
5RVELZ (101) ,S!G( 5.5) .SIGMA( 5.10,101 ) .SINT ( 101 > .SMASH! 101 ) ,SN( 5.1 
60,101 ) ,SN2 (5.10, 101) *T( 101,10) » TEA ( 5 ) *V( 101) ,W ( 101 ) .YIELD! 101) *2E 
7TA(10) 

I p ( MORE ) 1.1.9 

1 IF(JUSTPR.EO.O) CALL PRINT 
IF(MYIELD) A. A, 2 

2 WR I TE (MWR I TE ,3 ) TIVYLD 

3 FORMAT ( • 0 FIRST YIELDING AT TIME ■•F10.6) 

A CONTINUE 

WR 1 TE ( MPUNCH , 6 ) J .MY I ELD • T I ME • SM I N • TM I N . T IMYLD . TOTWRK . TPWORK , TDWOR 
1K.W0RKIM.ELAMAX.ELASTW 
DO 8 I-1.N1 

WR I TE ( vpuNCH , 7 ) V ( I ) .DV( I ) . W ( I ) .DW ( I ) .DS ( I ) »DTH( I ) .SINT! I ) .COST! I ) 
WR I TE ( VPUNCH , 7 ) (T(I.K) »K»1.NFL) 

WRITE (MPUNCH. 7) ( (SN(L»K»I ) ,K«1,NFL! .L-l.NSFL) 
fi CONTINUE 
CALL EXIT 

9 READ! MREAD .6 ) JZ .MY J ELD . T I MEZ »SMl N , TM I N ,T I MYLD • TOTWRK • TPWORK • TDWOR 

k.workim.elamax.elastw 

6 FORMA T!2I6,AF15.R/!5E15.8) ) 

DO 10 I-1.N1 

READ! MREAD. 7) V ! I ) .DV ( I ) .W ( 1 » .DW! I ) »DS( I ) »DTH ( I I .SINT! I ) .COST! I ) 

RE AD (MREAD, 7) (OLDT! I *K) .K«l .NFL) 

RE AD ( VRE AD .7 ) ( (SN(L.K.I) .K-l.NFL) .L-l.NSFL) 

7 FORMAT ( SE 1 5 . 8 ) 

10 CONTINUE 

J* JZ 

JSTART-1 

RETURN 

END 
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B.7 Illustrative Example 

The following example is presented to assist the user in 
checking the adaptation of JET 1 to his computer facility. The 
problem chosen is the one used to supply the position data for 
TEJ 1 mentioned in Subsection 3.4.1. In this example, a 7.3375 
inch midsurface radius, 0.125 inch thick, 6061-T6 unheated aluminum 
ring, 1.0 inch long is acted upon by a triangularly shaped forcing 
function lasting .0004 sec. with a peak value of 10,000 pounds at 
t ■ .0002 sec. The total force is assumed to be distributed over 
a 25° segment of the ring with its amplitude defined by the shape 
of a half-sine wave over this sector. 

The stress-strain curve for 606 I-T 6 aluminum can be approxi- 
mated by the following stress-strain coordinates (a,e): (0 psi, 

0 in/in); (42,500, .00425); 50,000, .030); and (65,000, .140). 

Strain rate effects are considered negligible, and the density is 
taken to be 0.25 x 10 J lb. sec /in . 

The number of mass points to be used to describe the 
complete ring is 72 and the ring’s cross section will be represented 
by 4 flanges. 

The critical time interval for this ring is obtained by 
using the smaller of the two critical times from Eqs. B1 and B2. 
These are calculated as follows: 
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AT L onq is the smaller of the two. A value less than this and 
convenient for plotting is desired, thus, AT * .25 x 10“^ sec is 
chosen. Let the program compute 2*40 cycles (.000600 seconds); a 
print-out is desired at *40 cycles, and every M0 cycles thereafter. 


B.7.1 Input Data 

The values to be punched on the data cards are as follows: 


Card 1 


Card 2 


Card 3 


N - 72 
NFL ■ M 
NSFL = 3 
J PRINT = 
JCYCLE * 
MORE = 0 
J START = 
JFDAMP = 
NTEMPS = 
NORATE = 


FORMAT 1015 


M0 

M0 


(this is not a continuation run) 
1 (only real time will be used) 

0 

1 

0 (no strain rate effects) 


R * .733750E+01 FORMAT ME15.6 

B = . 100000E+01 
H = . 125000E+00 
RHO = .250000E-03 

DELTAT = .250000E-05 FORMAT ME15.6 

HALT 1 = . 000000E+00 (not used since JSTART = 1) 

HALT 2 = . 100000E+01 (the motion is not to be damped out) 

TIMP = .000000E+00 (not used since there is no impulse) 


FORMAT HE15.6 


Card 


Card 


Cards 

Card 

Card 

Card 

Card 


Cards 

Card 


Card 

Card 

Cards 


4 TBEGIN = . OOOOOOE+OO 
TFINAL = .iJOOOOOE-03 
AMP 1 = . 100000E+05 
T1 = . 200000E-03 

5 FORMAT i4E15 . 6 
HDAMP = .OOOOOOE+OO not used since JSTART = 1 
FDAMP = .OOOOOOE+OO not used 

TCOOL = .750000E+02 
TIMTOT = .600000E-03 

6-9 are not required since NTEMPS = 1 

10 TCONST = .750000E+02 FORMAT E15.6 

11 is not required since NTEMPS = 1 

12 TEA(l) = .750000E+02 FORMAT E15.6 

13 ALPH(l) = . 123000E-04 (this could be FORMAT E15.6 

anything since 
there is no 
temperature rise 
in the ring) 

14 and 15 are not required since NORATE = 0 

16a EPS( 1,1) = . 425000E-02 FORMAT 4E15.6 

SIG( 1,1) = . 425000E+05 
EPS(2,1) = .300000E-01 
SIG( 2,1) = .50000E+05 

16b EPS( 3 >1) = . 140000E+00 FORMAT 2E15.6 

SIG(3,1) = .650000E+05 

17 IOTA = 0 (no impulse Is included) FORMAT 21.5 

NV = 0 (not needed) 

18 and 19 SKIP since IOTA = 0 
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Card 20 NSTAT 3 35 (start of forcing function FORMAT 21.5 

distribution) 2E15.6 

MASSN • 5 

RPM » . 000000E+00 (the location at which the force is 

applied does not change) 

ANGL 3 .210000E+02 (inclination angle) 


The input data for this example problem should appear as 
follows for the 12 data cards actually used: 


72 4 3 

+0.733750E+01 
+0.250000E-05 
+0.030000E+00 
♦O.OOOOOOE+OO 
+0.750000E+02 
♦0.750000E+02 
♦0.123000E-04 
+0.425000E-02 
+0. 140000E+00 
0 0 

35 5 


40 40 0 
+0. 100000E+01 
♦O.OOOOOOE+OO 
+0.400000E-03 
♦O.OOOOOOE+OO 


+0.425000E+05 

+0.650000E+05 


1 0 1 
♦0# 125000E+00 
♦0 • 100000E+0 1 
+0.100000E+05 
♦0.750000E+02 


+0.300000E-01 


0 

+0.250000E-03 
♦0 • QOOOOOE+OO 
+0.200000E-03 
+0.600000E-03 


+0.500000E+05 


♦0.000000E+0C +0.210000E+02 


B.7.2 


Results 


The following is the sample output which should be obtained 
from JET 1 using the input data given on the preceding page. The 
first part of the output contains a partial reiteration of the 
program input. The remainder of the output gives the conditions 
of the ring at the following program cycle numbers, and correspond- 
ing "real" times: J = 0, TIKE = 0.0 second; 38,0.000095 (corres- 

ponds to the time at which yielding first occurs); 40,0.000100; 
80 , 0 . 000200 ; 120,000300; 160 ,0 . 000400; 200,0.000500; 240 ,0 . 000600 . 


JET 1 A PROGRAM USED TO CALCULATE THE RESPONSE OF A FREE 

CIRCULAR HEATED RING WITH THE FOLLOWING PARAMETERS.... 


RADIUS OF RING TO CENTROID (IN.) = 7.337500 

WIDTH OF RING (IN.) * I.C0000C 

THICKNESS CF RING (IN.) = 0.125000 

NUMBER OF MASS POINTS USEC IN WHOLE RING = 72 

NUMBER OF FLANGES USED IN RING CROSS SECTION = 4 

NUMBER OF SUBFLANGES USED IN STRAIN HARDENING MODEL = 3 

NUMBER OF TEMPERATURE LEVELS USED TO DESCRIBE 
TEMPERATURE DEPENDENT MATERIAL PROPERTIES = I 

THE TEMPERATURE OF THE RING IS A CONSTANT AND IS EQUAL TO 75.00 DtGKEES 
TIME INTERVAL PER CYCLE USED IN PROGRAM (SEC) = 0 . 24999999E-0 5 
THERE IS NO IMPULSIVE LOADING 

STARTING TIME CF FORCING FUNCTION (SEC.) = 0.0 
STOPPING TIME (SEC.) = C.0C0A000 
DURATION (SEC.) = O.OOQ4GOO 
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% 




J* C !IN£» 0.0 

SEPARATION 

1 IN. 1 • 14.66103 

TCTAL ENERGY INPUT INTO RING 

■ 

0.0 

IIN-LBI 

INITIAL ELASTIC ENERGY 

• 

0.0 

IIN-LBI 

INPUL !IVE ENERGY INPUT 

■ 

0.0 

IIN-LBI 

EXTERNAL FCRCE INPUT 

■ 

0.0 

1 IN-LRI 


TCTAL ENERGY IS NOW DISTRIBUTED AS FOLLOWS. 


XINETIC 

ENERGY OF RING 

m 

0.0 

1 IN-LBI 

ELASTIC 

ENERGY 

m 

0.0 

1 IN-LBI 

DAPPING 

ENERGY 

w 

0.0 

1 IN-LBI 

PLASTIC 

WORK 

n 

0.0 

IIN-LBI 


THE 

FORCE RESULTANT ACTING ON THE 

KING DURING 

this cycle is 

0.0 


1 

V 

W 

N 

N 

EPSI 

1 

1 

C. 32005709 

- 7. 33051586 

0.0 

0.0 

0.0 

0.0 

2 

0.95773494 

-7.27 .72687 

0.0 

0.0 

0.0 

0.0 

3 

1.58812428 

-7.16357231 

0.0 

0.0 

0.0 

0.0 

4 

2.20642662 

-6.99789810 

0.0 

0.0 

0.0 

o.c 

5 

2. 8G 751762 

-6.77896595 

0.0 

o.c 

0.0 

0.0 

6 

3.38807869 

-6.50844193 

c.o 

0.0 

0.0 

0.0 

T 

3.54243336 

-6.18838501 

o.r 

0.0 

0.0 

0.0 

8 

4.46678543 

-5.82123089 

0.0 

0.0 

3.0 

0.0 

9 

4.95714188 

-5.4C977383 

o.c 

0.0 

3.0 

0.0 

10 

5.4C977097 

-4.95714378 

0.0 

0.0 

0.0 

c.o 

tl 

5.82122803 

-4.46678734 

0.0 

0.0 

0.0 

0.0 

12 

6.18838215 

-3.94243717 

0.0 

0.0 

0.0 

o.c 

13 

6.5C84 381 1 

-3. 388CP537 

0.0 

0.0 

0.0 

0.0 

14 

6.77898118 

-2. 8C7949C7 

0.0 

0.0 

0.3 

0.0 

15 

6.59789333 

-2.2C6441 88 

0.0 

0.0 

3.3 

o.c 

16 

7.18358754 

- 1. 588 1424C 

o.c 

0.0 

0.0 

0.0 

IT 

7.27472305 

-0.95775682 

0.0 

0.0 

0.0 

0.0 

18 

7.33051451 

-0. 320C8237 

0.0 

0.0 

o.c 

0.0 

19 

7.33051451 

3. 32CC8237 

0.0 

0.0 

0.0 

0.0 

20 

7.27472305 

0.95775682 

0.0 

0.0 

0.3 

0.0 

21 

7.16356754 

1.58814240 

0.0 

0.3 

c.o 

0.0 

22 

6.99789333 

2.20644168 

0.0 

0.0 

0 .0 

0.0 

23 

6.77856118 

2.80794907 

0.0 

0.0 

c.o 

0.0 

24 

6.50843811 

3.388C8537 

0.0 

3.0 

o.c 

0.0 

25 

6.18838215 

3.94243717 

0.0 

o.c 

tj . 0 

c.o 

26 

5.821228C3 

4.46678734 

c.o 

0.0 

3.0 

0.0 

>7 

5.4C977C97 

4.95714378 

0.0 

0.0 

0.0 

0.0 

2B 

4.55714188 

5.40977383 

0.0 

0.0 

3.0 

0.0 

29 

4.46678543 

5. 82123089 

0.0 

0.0 

0.0 

0.0 

30 

3.94243336 

6. 188385C1 

0.0 

0.0 

0.0 

0.0 

31 

3. 36807669 

6.50844193 

0.0 

0.0 

0.0 

c.o 

32 

2.8C79776 2 

6.77896555 

0.0 

0.0 

0.0 

0.0 

33 

2.2C642662 

6.99 7 8 98 10 

0.0 

0.0 

0.0 

o.c 

34 

1.50812428 

7.16357231 

0.0 

0.0 

0.0 

0.0 

35 

C. 95773494 

7.27472687 

o.c 

0.0 

0.0 

0.0 

36 

C.3 20C 5709 

7. 33051586 

0.0 

0.0 

0.0 

0.0 

3T 

-C.32CC57C9 

7.33051586 

c.o 

0.0 

0.0 

c.o 

38 

-0.95773494 

7.27472687 

0.0 

0.0 

0.0 

0.0 

39 

-1.58812428 

7.16357231 

0.0 

0.0 

0.0 

0.0 

40 

-2.2C642662 

6. 99789810 

o.c 

0.0 

0.0 

o.c 

41 

-2.80793762 

6. 77896595 

0.0 

0.0 

0.0 

0.0 

42 

- 3.38807869 

6. 50844193 

0.0 

0.0 

0.0 

0.0 

43 

-3.94243336 

6.18838501 

o.c 

0.0 

3.0 

0.0 

44 

-4.46678543 

5.82123089 

0.0 

0.0 

0.0 

0.0 

45 

-4.95714160 

5.40977383 

o.c 

0.0 

3.0 

3.0 

46 

-5.40977097 

4.95714378 

0.0 

o.c 

0.0 

c.c 

4T 

-5.82122803 

4.46678734 

0.0 

0.0 

3.0 

0.0 

4B 

-6.18818215 

3.9*143717 

0.0 

0.0 

0.0 

0.0 

49 

— 6. 5CH4 3811 

3.78SLR517 

0.0 

0.0 

0.0 

0.0 

50 

-6.7 78961 1 B 

2.8C7949C7 

0.0 

0.0 

0.0 

0.0 

51 

-6.99789333 

2.20644188 

0.0 

0.0 

0.0 

0.0 

52 

-7.16356754 

1.58814240 

0.0 

0.0 

0.0 

b.O 

53 

-7.27472105 

0.95775682 

0.0 

0.0 

3.0 

c.o 

54 

-7.33051491 

0. 320C8237 

0.0 

0.0 

0.3 

0.0 

55 

-7.33051491 

-0.32008237 

0.0 

0.0 

c.o 

0.0 

56 

-7.27472305 

-0.95775682 

0.0 

0.0 

c.o 

o.c 

5T 

-7. 16356154 

-1.55814240 

0.0 

0.0 

0.0 

o.c 

58 

-6.99789333 

-2.2C644188 

0.0 

0.0 

c.o 

0.0 

59 

-6.77896118 

-2. 807949C 7 

0.0 

0.0 

3.0 

c.c 

60 

-6.50843811 

- 3. 388GB537 

0.0 

0.0 

0.0 

9 .0 

61 

-6.18838215 

-3.94243717 

0.0 

0.0 

0.0 

0.0 

62 

-5.82122803 

-4.46678734 

o.c 

0.0 

0.3 

0.0 

63 

-5.4C«77097 

-4.95714378 

o.c 

0.0 

0.0 

0.0 

64 

-4.95714188 

-5.40977383 

0.0 

c.o 

3.0 

o.c 

65 

-4.46678543 

-5.82123089 

0.0 

0.0 

3.0 

0.0 

66 

-3.94243336 

-6. 188 38501 

o.c 

0.0 

c.o 

o.c 

4T 

-3.38807869 

-6.50844193 

0.0 

0.0 

'.•7 

0.0 

68 

-2. SC 793762 

-6. 77896595 

0.0 

0.0 

3.0 

o.c 

69 

-2.2064 2662 

-6.99789810 

0.0 

0.0 

J. J 

0.0 

TC 

-1.58812428 

-7.16357231 

0.0 

0.0 

3.3 

0.0 

Tl 

-0.95773494 

-7.27472687 

0.0 

0.0 

0.0 

3.0 

T2 

-0.32C05T09 

-7.33051586 

o.c 

0.0 

3.3 

0.0 


YIELD 
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J» 38 TIME- 0 >0000980 


SEPARATION I IN. I * 14.68270 


t 


i 

> 


j 


i 


TOTAL energy input 

1 NT C RING * 

120.293 1 IN- 

LBI 





INITIAL ELASTIC ENERGY 

0.0 IIN- 

LSI 





IMPULSIVE FNFRGY 

INPUT * 

0.0 1 IN- 

LBI 




external fcrce input - 

120.293 IIN- 

LBI 




TOTAL ENERGY IS NON 

1 DISTRIBUTED 

AS FOLLOWS. . . 





KINETIC ENERGY OF 

KING « 

94.428 (IN- 

LB) 




ELASTIC ENFRGY 

■ 

21.445 (IN- 

LBI 




DAMPING ENERGY 

M 

0.0 1 IN- 

L8I 




PLASTIC WORK 

m 

4.420 (IN- 

LBI 




THF FORCE RFSULTANT 

ACTING ON THE RING CURING 

THIS CYCLE IS 

4749.9922 


1 

V 

w 

N 


M 

EPSI 

EPSE 

I 

0.37034709 

-7.33051586 

-0.00084 


-o.oocco 

— G.OCOOOOOO 

C.COCOOCOO 

2 

0.95773444 

-7.27472687 

0.00101 


-o.oocco 

-D.OOOCOCOO 

C.COOOOOOO 

3 

1.54812428 

-7. 16357731 

0.01179 


-0.00CC2 

-O.OOOCOOCO 

0.00000000 

4 

2.2064 2662 

-6.99789810 

0.09557 


-O.OCCll 

-0.00000300 

0.00000000 

5 

2 • 8C 793762 

-6. 778965C0 

0.5879? 


-0.00056 

0.00600026 

0.00300030 

6 

3.38407964 

-6. 5C8440C2 

2.80261 


-0.00221 

0.00000205 

0.000CC223 

7 

3.94743813 

-6. 18837833 

1C. 47890 


-0.00692 

O.OOOCC782 

0.00000838 

8 

4.46674974 

-5.82121277 

30.94925 


-0.01735 

0. OOOC 23 69 

0.00002511 

9 

4.957 14C98 

-5. 4C 972614 

72.57100 


-0.03512 

0.0COC5629 

0.00005917 

10 

5. 4C9846 71 

-4.957C322C 

136. 15202 


-0.05826 

3 .COO 1 360 3 

0. 00011087 

1 1 

5.82134628 

-4. 46657467 

208.34669 


-0.08181 

0.00016286 

C. 00316956 

i? 

6. 1385 3664 

-3.94207764 

271.72314 


-0.10275 

0.00021275 

G.CQ022 117 

13 

6.5C46C214 

-3. 38754177 

324.64C87 


-0. 12297 

C.C0O25392 

0.00026 399 

14 

6.77910423 

-7.8C717850 

378.96899 


-0. 145C4 

0.00C29668 

0.00030857 

15 

6.54 796772 

-2.205410CG 

437.28711 


-0. 16849 

3.00034219 

0.00335599 

16 

7.163515C9 

-1. 58681393 

493.27954 


-0. 19 282 

0.000386C7 

0.00340 187 

17 

7.27447128 

-C.956114C5 

549.08228 


-0.21926 

0.C0C42941 

G.C0044 V 3 . 

1 8 

7.37997990 

-0.31810212 

608.59937 


-0.248C7 

0.00047581 

0.0O049613 

14 

7.3296C224 

0. 37240444 

669.93335 


-0.27990 

0.300 52358 

C. 00354651 

20 

7.27332687 

0.96041 193 

734.02148 


-0.31480 

0.00057345 

0.00059924 

?1 

7.16157532 

1.591 1C 260 

802.48682 


-0.35372 

3.0C062633 

0.00065531 

22 

6.94516669 

2.209671C2 

875.67236 


-C.397C5 

0.00068341 

0.00071593 

23 

6.775381C9 

2.81138229 

954.22363 


-0.44530 

C.30o7440C 

0.00078048 

24 

6. 50385 1 E9 

3.39163589 

1039.11255 


0.49946 

0.0CC80957 

C. 00085049 

2S 

6.18264961 

3. 94599747 

1131.81494 


- 0.55986 

0.00088113 

0.CC092699 

26 

5.81419373 

4.47020626 

1231.96753 


-0.62765 

0. 00095871 

0.00101013 

27 

5.40179165 

4.96024227 

1342. 27222 


-0.70429 

3.00104356 

0.00110126 

28 

4.94707394 

5.41234016 

146 2 . }7>91 


-C. 78862 

3.00113583 

G.CG120C44 

29 

4.45499134 

5.82300663 

1594.21753 


-0.85313 

0.00123876 

0. 00130867 

30 

3.92879391 

6. 189C7928 

l 739.22974 


-C.93C79 

O.OC 135191 

0.00142815 

31 

3.3725C614 

6. 50772190 

1897.55664 


-1.75125 

3.00144475 

0.00158821 

12 

2.79028C34 

6. 77627563 

2072.47949 


-3.61981 

3.00150789 

0.00180442 

33 

2.18644428 

6.99217987 

2264.52100 


2.93762 

C. 00193031 

0.00 168966 

14 

1.56618118 

7. 155430 79 

2481.14819 


34.58766 

J. 00339979 

0.00056637 

35 

0.93558e84 

7.27317810 

2715.98975 


62.31CC1 

0.00472339 

-C.C0038104 

16 

C. 29891807 

7. 3521862C 

2776.57031 


1.90 32 3 

0.CC229774 

0.C0214183 

37 

-0.34166480 

7.37590122 

1721.31494 


-54.45346 

-0.00252393 

0.00531795 

44 

-0.97978584 

7.31809235 

229.63428 


-87.62271 

-0.00340699 

0.C0377107 

19 

-1.60436153 

7. 18 19524H 

-758.90796 


38.64862 

3.00097454 

-J.CC219156 

40 

-2.21816444 

7.00179386 

-833.99243 


45.50241 

0.00119512 

-O.C0253244 

41 

-2.81828022 

6. 78C23243 

-794.05493 


8.92764 

-0.00O27095 

-0.00100231 

42 

-3. 39783573 

6.50937271 

-757. 37866 


-2.15041 

-O.CC069557 

-0.0O051940 

41 

-3.9513C825 

6.18852139 

-720.39551 


-0.458C9 

-O.OCC 59636 

-C. 00055883 

44 

-4.47465174 

5. 82C54806 

-683.69019 


0.51896 

-0 .00052682 

-0.0035693* 

45 

-4.564C3790 

5.40844872 

-651.23853 


0.46770 

-0 .0005C34 1 

-0.00354172 

46 

-5.41574478 

4.955348CI 

-620.89185 


0.38543 

-0.CG04820 1 

-0.00051358 

47 

-5.82632923 

4.46465778 

-593.13745 


0. 34966 

-0.00046150 

-0.00049C 14 

48 

-6.19266796 

3.940C9113 

-567.84106 


0.32010 

-0.00044260 

— J.0CC46882 

44 

-6.51197243 

3.38563251 

-543.66 357 


0.29256 

-0.CCG42417 

-0.00344814 

sc 

-6.78181934 

2.8C546951 

-522.09229 


0.26760 

-O.COU4C787 

-0. C0042980 

SI 

-7.000141 14 

2.20401764 

-501.C 3369 


0.245C6 

-C.30C 39 194 

-C. 00341202 

57 

-7.16528130 

1.58583069 

-401.40601 


0.22482 

-0.0003 1 676 

-0.00339517 

43 

-7.27597372 

0.95561200 

-462.76001 


0.2C64S 

-0. 00036252 

-0.00037943 

54 

- 7.331 377C3 

0. 31813151 

— 444. C3 394 


0. 19945 

-0 .C0u 3484 l 

-0. 00036 393 

55 

-7.33105373 

-0.32181412 

-425.54590 


0.17439 

-C. OOC 3 342? 

-0.00034850 

56 

-7.2750C725 

-0.95925653 

-407.30 737 


0. INC 13 

-C.OC032JC9 

-0.00333321 

57 

-7.16365814 

-1.58940125 

-387.41 162 


0. 1466 3 

-O.COC 30463 

-0.00031664 

58 

-6.99784565 

-2.20746994 

-366.02002 


0.134C4 

-0.00028810 

-C. COC299C8 

59 

-6.77887957 

-2.80875778 

-344.86426 


0.12183 

-0.0CC27156 

-C .00028 154 

60 

-6.50826359 

-3. 33869476 

-319.45264 


0. 10843 

-0.00025179 

-0.C0326C 2 

61 

-6.13814809 

-3.94286919 

-288.66089 


0.09612 

-J.CGC.22773 

-0.00023561 

62 

-5.82106209 

-4.4670724' 

-258.87744 


0.08375 

- 0 . 00C2 0431 

-O.OC 021 117 

63 

-5.4C964699 

-4.95731068 

-226.22411 


0* 069(4 

-0.000 l 7865 

-0.00018431 

64 

-4.957C6272 

-5.40985584 

-178.64CU 


0.05C26 

-O.CCc 14125 

-0.00014536 

65 

-4.46674752 

-5. 82126331 

-118.50880 


0.03C63 

- 0 . OCv.094 JC 

-0. CO 30965 1 

66 

- 3.9*24 1428 

-6. 1383955 J 

-63. 51C56 


0.01518 

-..0:v,05059 

-C .0000 51 84 

67 

-3.388071 C6 

-6.50844 383 

-27.C84 75 


0.00 6C5 

-V.-C.C2173 

-O.CC0C???? 

68 

-2.80 79 1 381 

-6. 77896595 

-9. 14327 


0.00191 

— j » 0 COCO 746 

— O.C'JOCO 762 

69 

-2.20642567 

-6.99789810 

-2.43418 


0.00C44 

-O.CCC 0021? 

-C. 0000 021n 

70 

- 1 .58817428 

-7.16357231 

-0.5078? 


C.OGC 10 

-3 • JOC 0C055 

-C.CO JCCC 56 

71 

-0.95773488 

-7.274 72687 

-0.0 8 20 4 


O.OOCC 2 

--..0LCC319 

-u.COCOOC! 7 

72 

-C.320057C9 

-7. 33051586 

-O.C1C06 


G.OOCOO 

-j.CGkOCJC9 

-O.OOOOOCC9 


YIELD 


» 
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J" 


40 TINE* 0.0001000 


SEPARATION UN. I ■ 14.68608 


TOTAL ENERGY INPUT INTO RING 
initial elastic energy 
INPULSIVE ENERGY INPUT 
EXTERNAL FCRCE INPUT 


144.290 IIN-LRI 
0.0 IlN-LBI 
0.0 (IN-LB! 
144.290 IIN-LRI 


TOTAL ENERGY IS NOM DISTRIBUTED 
KINETIC ENERGY OF RING - 

EL AST I : ENERGY 

OANPING ENERGY * 

PLASTIC WORK ■ 


AS FOLLOWS... 
11S.8T7 UN-LB! 
24.674 IIN-LRI 
0.0 IIN-LRI 
S.740 IIN-LRI 


THF 

FORCE RESULTANT ACTING CN THE 

RING DURING 

THIS CYCLE IS 

4999.9922 


1 

V 

M 

N 

N 

EPSI 

EPSE 

l 

0.32005709 

-7.33051586 

-0.03397 

-o.ococo 

-0.00000009 

-0.00000009 

2 

0.95773494 

-7.27472667 

0.04110 

-O.OCCC6 

-0.00000000 

0.00000000 

7 

1 .58812428 

-7. 16737231 

0.30C51 

-0.00031 

9.00000017 

0.00000020 

4 

2.20642662 

-6.99789619 

1.53898 

-0.00129 

0.00000097 

0.000C0108 

5 

2.80797953 

-6.77696214 

6.21164 

-0.00436 

0.06000446 

0.00000483 

6 

3.388C8916 

-6.50843734 

19.92844 

-0.01186 

0.00001525 

0.C00O1622 

7 

3.94246387 

-6. 18835640 

5I.C4C19 

-0.02619 

0.00003943 

0.00004158 

8 

4.46665123 

-5.82116222 

104.84166 

-0.04716 

0.00006150 

0.00008536 

9 

4.95726109 

-5.40962791 

174.63293 

-0.07C66 

0. OOC 136 31 

0.00014211 

10 

5.4C994644 

-4.95667771 

242.66620 

-9.09266 

0.00016979 

0.00019738 

ll 

5 . t'214 4833 

-4.46636200 

297.89575 

-0. 11216 

O.OOG23313 

0.00024232 

12 

6.15862834 

-3.94180679 

347.91162 

-0.13242 

0.0CC27234 

0.00028319 

13 

6.5C8(6SC8 

-3.38721085 

402.54321 

-0.15457 

0.00031492 

C. 00032758 

14 

6.7 79 1 2 5 9 8 

-2.80678558 

457.79199 

-0.17749 

0.00035830 

0.00037284 

IS 

6.95194006 

-2. 20495756 

509.92163 

-0.20159 

0.0GD39884 

0.00041536 

16 

7.16342163 

-1.58630657 

564.17407 

-0.22810 

0.0C044124 

C.C0045993 

IT 

7.27429676 

-0.95553380 

621.40137 

-0.25712 

0.00048559 

0.00053665 

16 

7.72971191 

-0. 31749904 

679.81030 

-0.28855 

0.30053095 

0.G0055459 

19 

7.32922459 

0.32304412 

741.70117 

-0.12398 

0.00057904 

0.00060558 

20 

7.27282715 

0. 96108061 

807.76149 

-9.36299 

3.00063033 

0.00066007 

21 

7.16093636 

1.59178352 

876.40552 

-0.40655 

9.00068479 

0 .00071 809 

22 

6.55437714 

2.21035290 

954.32959 

-0.45521 

0.00074388 

0.00076117 

23 

6.7 7442C74 

2.81204700 

1036.87398 

-0.50958 

0. OOC 80739 

0.00064914 

24 

6.5027C844 

7.39226437 

1126.56567 

-0.57053 

0.9006765C 

0.00092324 

25 

6.18131065 

3. 94656181 

1 221. 96C45 

-0.61860 

0.00095156 

0.00100 387 

26 

5 .fl 1264 400 

4.47069073 

1331.33765 

-0.71500 

0.00103456 

0.00109313 

27 

5.39951992 

4. 96061039 

1447.92358 

-0.80165 

3.00112403 

0.001189 70 

2R 

4.94507027 

5.41255760 

1576.69873 

-0.89534 

0.00122281 

0.00129615 

29 

4.45274734 

5.82303429 

1717.50293 

-0.95566 

0.00133319 

0.00141149 

30 

3.92630672 

6. 18867711 

1872.27905 

-1.06047 

0.00145293 

0.00153980 

31 

3.36977482 

6. 5C724220 

2042.52734 

-2.18748 

0 .00154261 

C. 00172201 

32 

2.78727531 

6.77539444 

2228.68848 

-4.25131 

3.00160669 

0.00195516 

33 

2.18313885 

6.99071693 

7435. 98564 

4. 7C450 

0.00213974 

0.00175435 

74 

1.56274128 

7.13782290 

2662.60034 

41.09193 

0.00381128 

0.00044503 

35 

0.53233860 

7. 27 317805 

2853.68994 

66.22298 

0.00516717 

-0.00050263 

76 

0.29602337 

7.35556221 

2918.26392 

1.52272 

0.00239 548 

0.00227073 

77 

-0.34458596 

7.3826C977 

1827.54956 

-98.04655 

-0.00279343 

0.00605322 

78 

-0.98220855 

7. 324831C1 

237.04814 

-99.97415 

-0.00390704 

0.00428285 

79 

-1.60656360 

7.18548107 

-751.27002 

40.75525 

0.00106688 

-0.00227180 

40 

-2.21962452 

7.00271320 

-821.44067 

53.04149 

0.00151379 

-0.00283138 

41 

-2.81950569 

6.78049660 

-760. 42847 

11.73773 

-0.00014505 

-0.00110661 

42 

-7.359C5C77 

6.50968742 

-746.61206 

-2.60373 

-0.00O7C566 

-0.00049236 

43 

-7.95253658 

6.19877792 

-709.27828 

-0.802C6 

-C.0006C 160 

-0.00053590 

44 

-4.47579479 

5.82067490 

-674.00439 

0.55740 

-0.0CG5I761 

-0.00356377 

45 

-4.965C5171 

5.40846062 

-641.41577 

0. 52846 

-0. OOC 49319 

-0.00053648 

46 

-5.4167C990 

4.95S266C0 

-611.97803 

0.42142 

-0.00647355 

-O.C0050807 

47 

-5.8272C470 

4.46449366 

-585.27295 

0 . 38 0 28 

-0.00045410 

-0.00048525 

48 

-6.19345474 

1.93986225 

-560. 11940 

0.34861 

-O.OOC43528 

-0.00946384 

49 

-6.51267147 

3.36534927 

-538.02051 

0.31662 

-O.OOC4I863 

-0.C0044474 

50 

-6.78243160 

2.80514336 

-516.64819 

0.29126 

-0.0004C27 1 

-0.00042657 

51 

-7.00 0 6 6 948 

2. 2C 365906 

-497.64624 

C. 26677 

-0.00G38845 

-0.00041030 

52 

-7.16572857 

1.58545017 

-479.64722 

0.24466 

-0.000 3T464 

-0.00939468 

53 

-7.27634239 

0.95521802 

-462.45142 

0.22477 

-0.00036158 

-0 .00037999 

54 

-7.33167171 

0.31773239 

-446.56055 

0.20654 

-0.00C34985 

-0.00336677 

55 

-7.33127880 

-0.72221037 

-430.6 IC96 

0.19040 

-3. OOC 33785 

-0.00935344 

56 

-7.27516842 

-0.95964319 

-414. 89868 

0.17540 

-0.30032570 

-0.00034007 

57 

-7.16376C19 

-l . 38977032 

-399.19648 

0.16175 

-0.00031369 

-0.00032694 

58 

-6.99789524 

-2.20781612 

-383.14111 

0.14884 

-0.00030128 

-0.000il347 

59 

-6.77887244 

-2.80907631 

-364.49487 

0. 13664 

-0.00028679 

-0.00029798 

60 

-6.50822735 

-3.78897991 

-345.87891 

0.12523 

-3.C002T236 

-0.00028.161 

61 

-6.18817724 

-3.94311619 

-325.56472 

0.11340 

-9.C0C25664 

-0.00026V.93 

62 

-5.82097530 

-4.46727848 

-296.75586 

0.101C1 

-9. 00023554 

-C.C0024382 

63 

-5.4C954781 

-4.93747757 

-269.97266 

0.08926 

-0.00021264 

-0.00022015 

64 

-4.95656545 

-5.40997791 

-242.30272 

0.0T6TT 

-3.00019119 

-0.00019748 

65 

-4.46666431 

-3.82137961 

-204.98573 

0.06045 

-0.00016206 

-0.00916701 

66 

-3.94236374 

-6. 1684 3460 

-150.86749 

O.U4090 

-0 .000 11 947 

-0.00012282 

67 

-3.78804531 

-6.50 6439C9 

-91.50746 

0.02288 

-0.00007272 

-0.00007459 

68 

-2.8C792732 

-6.77696976 

-44.67644 

0.01040 

-0.00003561 

-0.00003646 

69 

-2.20642185 

-6.99789810 

-17.42247 

0.00381 

-0.00001400 

-0.00001431 

70 

-1.58812237 

-7.16757231 

-5.41176 

0.00112 

-O.OOUOC452 

-0.00000461 

71 

-C. 957734 70 

-7.27472667 

-1.33449 

0 .00(26 

-3.00000129 

•0.900CC13I 

72 

-0.320057C3 

-7.33051586 

-0.25903 

O.OOCC5 

-0.00000037 

-0.C0000037 


YIELD 
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t 


REPRODUCIBILITY OF THE ORIGINAL PAGE IS POOR. 


J> 80 TIME* 0.0002000 


SEPARATION (IN.! ,.01531 


TOTAL ENERGY INPUT INTO RING 
IN IT I AL ELASTIC ENERGY 
IMPULSIVE ENERGY INPUT 
EXTERNAL ETRCE INPUT 


1857.894 ( IN-LAI 
0.0 t IN-LB) 
0.0 IIN-LBI 
1857.894 IIN-LBI 


TOTAL ENERGY IS NON DISTRIBUTED 
KINETIC ENFRGY ON RING • 

ELASTIC ENERGY 

OAMP1NG ENERGY • 

PLASTIC WCRK « 


AS FOLLOWS... 
1*92.476 IIN-LBI 
106.023 IIN-LBI 
0.0 IIN-LBI 
258 .595 IIN-LBI 


THE FORCE RESULTANT ACTING ON THE KING OURING THIS CYCLE IS 9999.984* 















1 

V 

N 

N 

M 

EPSI 

EPSE 

1 

0 • 329 5CC68 

-7.32770157 

494.2054C 

-0.30339 

0. 300 380 7 1 

0.00340556 

2 

0.96728820 

-7.27018738 

511.56226 

-0. 357C1 

0.00039294 

0.C0342219 

3 

1.5976C571 

-7. 15720367 

524.20874 

-0.41090 

0.0C040070 

0.C0343436 

4 

2.21566772 

-6.98960590 

527.02295 

-0.46513 

0.00040062 

C. 00343872 

5 

2.81673050 

-6. 76866150 

522.61987 

-0.52367 

O.OC039422 

0.C0343712 

6 

3. 39619064 

-6.496C46C7 

529. 76367 

-0.59315 

0.00039724 

C. 00344583 

T 

3.94961834 

-6.17381477 

566.20557 

-0.67520 

0.00042330 

0.00047862 

a 

4.47277427 

-5.80441093 

620.22778 

-0.76353 

0.0C046242 

C. 00352497 

9 

4.96163654 

-5. 3906408* 

663.69727 

-0.85389 

0.00049346 

0.CC356341 

10 

5.41241837 

-4.93567467 

694.50269 

-0.94942 

3.00051459 

0.00059237 

ii 

5.82164478 

-4.44297314 

730.02295 

-1.05149 

0.00053881 

C.C0362495 

12 

6.18615627 

-3.81629982 

756.23633 

-1. 15876 

0.00055509 

C.C00650C1 

13 

6.5031C421 

-3. 35971165 

773.63892 

-1.28214 

3 .000 56391 

C.C0366894 

14 

6.77003574 

-2. 77743912 

8*2.84253 

-1.43179 

3.00061318 

C .0007304 7 

15 

6.48486614 

-2. 1 7393584 

957.00610 

-1.60C23 

0.00069735 

C. 00082844 

16 

7, 14567668 

-1. >5383587 

1072.25415 

-1. 78737 

0.00078205 

0 .000928*8 

17 

7.25177097 

-0.92193109 

l 225, H83C6 

-1.99430 

O.OOU09649 

0.001C5987 

18 

7.30165241 

-0.28305912 

1377.60156 

-2.20667 

0.0010C912 

C. 00118993 

19 

7.29506779 

0. 35782284 

1471.80078 

-2.43176 

0.00107535 

0.00127452 

20 

7.23200226 

0.99563628 

1586.33565 

-2.68C63 

3.00115620 

0.C0137580 

21 

7. 1 1286449 

1.62543297 

1720.36011 

-2.9594* 

0.00125196 

C.C0149439 

22 

6.43849445 

2. 2*234486 

1885.25977 

-3. 27876 

3.00137129 

C . CO 1 6 398 8 

23 

6.7101654B 

2.84150696 

2 128.0603C 

-3.63535 

0.00155064 

0.C0184845 

24 

6.42953587 

3.41818810 

2388.48022 

-4.04848 

0.00174146 

0.00207311 

25 

6.C4P7C414 

3.96778679 

2690. 56616 

-4.58012 

0.00196142 

0.00233662 

26 

5.7201 3664 

4.48586369 

2985. 37598 

-4.94431 

0.0021B282 

0.00258786 

27 

5. 29677E68 

4.968 19401 

32*2.20874 

-4.30C6 3 

0.00241395 

0.00276626 

78 

4.83211231 

5.41103458 

3459.80566 

-4.98282 

0.00255995 

0.00296814 

29 

4.32968903 

5.81070614 

3669. 58154 

-1*. 18559 

0.00235089 

0.00351297 

30 

3.79213761 

6.16195247 

39 36.14673 

-19. 11870 

0.00236281 

0.00392901 

31 

3.22346306 

6.46053028 

4217.8359* 

9.30936 

0.00375191 

0.00298979 

32 

2.61159370 

6.71085358 

4549.69922 

28.962R3 

C. 00569391 

0.00211476 

33 

2.C2258442 

6.92026043 

4914.60937 

24.94583 

0 .0 1C 544 36 

0.00159754 

34 

1.4C3G81E9 

7. 1C494423 

5336.51 172 

14. 35C83 

0.01814659 

0 .00 158051 

35 

0.77936816 

7.28920269 

5717.53125 

7. 4066 5 

3.02633966 

C.C0S5C216 

36 

0.15253496 

7. 4876C 7CU 

6130.00781 

1.25610 

0.02846773 

0.0249 3482 

37 

-0.4790B491 

7.64043522 

4190.64453 

-84.93860 

-0. 00582757 

0.03517780 

38 

-1. 121161*6 

7.6C2C6223 

10 1 2.89 502 

- 166. 16837 

-0.32053947 

C. 03023858 

39 

- 1.7C846530 

7. 348 746 JC 

-717.91528 

78. 54 784 

O.OC263992 

-0.00379474 

4C 

-2.28171253 

7.06409645 

-801,19873 

153.80598 

3. 3C943492 

-O.Cl 193265 

41 

-2.86058426 

6. 79218960 

-690. 38940 

l 38.97C37 

3.00574277 

-0.00771980 

42 

-3.4 46C846 

6.5C959778 

-591.95557 

70.07423 

0.00239312 

-O.CC334737 

43 

-3.99136353 

6.19425774 

-512.69800 

-16. 70767 

-0.00109787 

0.C0027082 

44 

-4.51599789 

5. 82788944 

-427.35669 

-2* • 278 75 

-C.0013R032 

0.C0069052 

45 

-5 .00 2*7936 

5.41198254 

-377.5127C 

-1.72994 

-3.00037618 

-0.00023447 

46 

-5.45025921 

4.95495033 

-348.800C5 

5.38834 

-C. 00006134 

-0.00050275 

47 

-5.85778141 

4.46149921 

-280.56689 

2.61171 

-0.00012048 

-0.00033483 

48 

-6.22134686 

3.93477154 

-181.62064 

1.13928 

-0.000131)6 

-0.00019509 

49 

-6.53 74C855 

3. 378*0568 

-113.26431 

1. 14C95 

-0.00004694 

-0.00014041 

50 

-6.80507755 

2.79661683 

-41.57414 

1.13357 

C. 00001021 

-0.C00C8265 

51 

-7.0208406' 

2. 19412041 

88.70355 

0.99732 

0 .000 10045 

0.C03C2675 

52 

-7. 18352509 

1.57492542 

192. 19679 

0.87795 

O.OCC 18727 

C .003 1 1 5 35 

53 

-7.29186153 

0.94395876 

221.80 371 

0.78380 

0.00C2C670 

C. 00014249 

44 

- 7 . 3450C2 1 7 

0. 3C 59 221 5 

263.52417 

0.69666 

u .3002 3665 

C.C0317958 

55 

-7.34251545 

-C. 33438385 

291.86206 

0.62661 

O.OCC 256 31 

C .00320498 

46 

-7.28441048 

-0.97198504 

260.B5C59 

0.56694 

0. 30G2291C 

C. 00018266 

57 

-7.17 IC4566 

-1 . 602C9465 

255.57756 

0.50618 

3.JCC22251 

0.C0018 105 

58 

-7.00343227 

-2.21999836 

256.42505 

0.45360 

3.00027111 

0.00018395 

49 

-6, 7B267288 

-2.82095623 

22*. 73770 

0.40192 

0.30019366 

0.00316074 

60 

-6.51047134 

-3. 400444C 3 

241.9241 9 

0. 339 20 

U.CCC2C487 

C. 00017709 

61 

-6. 18R86C89 

-3.95407CC9 

294.586*3 

0.26265 

3.00024*55 

0 .000221 40 

62 

-5. 820281C3 

-4.4T7601C5 

790.25537 

0.24215 

O.OCG23991 

C.C0322C08 

63 

- 5 . 4C754 509 

-4.96705246 

260.11279 

C.20C26 

3.0CC 21*17 

0.C0019777 

64 

-4.9537*489 

-5.41871166 

274.80444 

0. 14863 

3.C0C2235I 

C.C0021 1 34 

65 

-4.46232C 13 

-5.82913589 

311.85449 

0.09733 

0.30125117 

C. 0002*314 

66 

- 3,9370 0218 

-6.1 952C950 

331, 64282 

0. 05 120 

J.O 0C26496 

O.CO 3260 7 7 

67 

-J. 381 77586 

-6.51411343 

341. f 8281 

0.00516 

3.00C271 74 

0.0C327I31 

68 

-2.800E67C8 

-6. 78341293 

363.87549 

-0.04496 

O.0C028710 

C .00329078 

49 

-2.19867229 

-7.00106144 

398.25659 

-0.09720 

O.OCC 312 61 

C. COO 370 57 

70 

- 1.57978249 

-7.16536999 

430.45166 

-0. 14867 

3 .0003 3592 

C. 00334810 

71 

-0.9*891681 

-7.27508068 

454.91675 

-0.199*') 

3.3CC 35 37 7 

C.C0C37M1 

72 

-C. 31086218 

-7. 32933331 

475.4*019 

-0.75C46 

3.30C36779 

0. COO 388 3 1 
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120 


TIKE- 0.0003000 


SEPARATION (IN. I • 19.00177 


total energy input into r 

INITIAL ELASTIC ENERGY 
IMPULSIVE ENERGY INPUT 
EXTERNAL FCRCE INPUT 


NG - 9109.672 IIN-LRI 

■ 0.0 IIN-LO) 

- 0.0 IIN-LRI 

■ 9109.672 IIN-LRI 


TOTAL ENERGY IS NOW DISTRICTED 
KINETIC ENERGY OF RING • 

ELASTIC ENERGY * 

OARPING ENERGY • 

PLASTIC MORE - 


AS EOLLOMS... 
3R96.8R6 IIN-LRI 
222.289 IIN-LRI 
0.0 IIN-LRI 
1026.697 IIN-LRI 


THE 

FORCE RESULTANT ACTING ON THE 

RING DURING 

THIS CYCLE IS 

4999.9922 


1 

V 

M 

N 

M 

EPSI 

EPSE 

1 

0.39276738 

-7.30816078 

-59.62312 

-1.17581 

-0.00009686 

-0.00000094 

2 

0.98987736 

-7.26633998 

15.66762 

-1.36024 

-0.00004668 

0.00006479 

) 

1.61909817 

-7.12886067 

15.20720 

-1.9538 7 

-O.OOC05517 

0.00007212 

6 

2.23962336 

-6. 99697921 

79.96326 

-1.77693 

-0.00001254 

0.00013303 

9 

2.83669933 

-6.73079199 

181.58696 

-2.01399 

O.OOOG9848 

0.00022341 

6 

3.61197627 

-6.693C7827 

266.69161 

-2.26201 

0.00010047 

0.00028977 

7 

3.96179008 

-6.12962696 

321.25269 

-2.93893 

0.00014939 

C. 00039735 

8 

6.68103162 

-9. 790889C1 

650.27026 

-2.84X2 

0.00023944 

0.00047234 

9 

6.96918326 

-9.33169996 

576.2522C 

-3.16831 

0.00032937 

C. 00058493 

0 

9.61038899 

-6.87126066 

699.7280 3 

-3.92708 

C. 000408 36 

0.00369730 

1 

9.81308766 

-6. 37311077 

872.19897 

-3.91369 

3.00053390 

C.G00S9411 

2 

6. 170CC866 

-3.86111691 

993.99976 

-4.31370 

3.00061433 

O.C0096771 

3 

6.6782CC91 

-3. 27969BC3 

1066.96668 

-4.74280 

0.000694 76 

0.00104330 

6 

6.73911791 

-2.69291919 

1159.17905 

-9.21266 

3.0007097 3 

0.00113679 

9 

6.93999682 

-2.08693062 

1252.52896 

-5. 72449 

C.0C076326 

0.00123221 

6 

7 .08689 3C 3 

-1.66130780 

1393.82715 

-6.28367 

U.0C0871 36 

C.C0133612 

7 

7.17899666 

-0.82727663 

1663.76167 

-6.91C52 

0.30C88359 

0.00144973 

8 

7.21277923 

-0. 18722196 

1 669.63C1 3 

-7.61412 

0 .00 1C 1 605 

0.00163980 

9 

7. 1890 2988 

0.69366707 

1880.56668 

-8.37283 

3.0C119724 

0.00184314 

0 

7 . 1C 729122 

1.08937665 

2033.87862 

-9. 14302 

0.30124795 

0.00199695 

1 

6.96802239 

1. 719279 76 

7168.61621 

-9. 95918 

3.30132207 

0.00213792 

2 

6.77219672 

2. 32996299 

2316.36155 

-11.25729 

3.00138799 

O.C0231O19 

3 

6.92099696 

2.91612339 

2699.62920 

-12.92409 

C. 00146582 

0.00252456 

6 

6.21621913 

3.68061962 

2715. 12793 

-11.88211 

0.001680 30 

0.00265368 

9 

9.86066099 

6.01679811 

2980.55151 

-9. 13G45 

0 .00200540 

0.00 275336 

6 

9.69789928 

6.51669389 

3293.02963 

-20. 16861 

3.00177191 

0.00342413 

7 

9.C09 10187 

6.97369167 

3586.70728 

-39.00914 

0.00126493 

0.00 446096 

R 

6.91906919 

5.38378336 

3963.33105 

-21.28CS1 

0.00229353 

0 . C0403684 

9 

3.96372699 

5. 76683660 

6368.80669 

13.99276 

0.00404618 

0.00293265 

0 

3.62666232 

6. 06 156 369 

6770.67578 

20.90050 

3.00524450 

0.00274202 

1 

2.86169197 

6.33691161 

5197.71875 

12.29036 

0.01364941 

C.C0257264 

2 

2.26333998 

6.58591938 

9619.66062 

6.33748 

3.02159299 

0.00376817 

3 

1.63696267 

6.86290650 

6269.36328 

5.25922 

0.04324841 

0.C2076560 

6 

1.02 39 2966 

7. 120099C7 

9461.79297 

-5.44066 

0.05744817 

0.03804675 

9 

0.60628696 

7.61069221 

5933.06750 

-12.51514 

0.37994258 

0.06146555 

6 

-0.22033860 

7.69360667 

5566.94687 

20.13791 

0.07850581 

0.06281919 

7 

-0.81699963 

7.99886998 

4001.01123 

69.49899 

3.00413848 

0.03401323 

9 

- 1 . 698 8CC 32 

8.C7657066 

1643.81372 

-182.24188 

-0.09593034 

C. 09188229 

9 

-1.96619811 

7.67993299 

279.33252 

-137.97357 

-0.00569737 

0.03640 4 72 

0 

-2.60766117 

7. 21275806 

241.21 753 

149.63805 

0.03076001 

-0.02232280 

1 

-2.926 39828 

6. 836C9671 

203. 72729 

169.41000 

3.01974609 

-0.01739231 

2 

-3.68068210 

6. 5 15C6621 

193.37378 

136.87314 

3.70631472 

-0.00568713 

3 

-6.026C2673 

6. 17987367 

244.28564 

78.14577 

3.00343094 

-0.C0297077 

6 

-6.99297320 

9.81966021 

453.37422 

21.22549 

O.COl 30972 

-0.00059291 

9 

- 9.C69 367 16 

5, 61 1 32! E6 

923.83154 

-65.60184 

-3.00145424 

0.00228147 

6 

-9.900 38910 

4.95F/33TC 

528.11479 

-45.35266 

-0.00146011 

0.00227918 

7 

-9.90066338 

6.65686C52 

549.50894 

3.85763 

3.00059220 

0.00027619 

8 

-6.73677096 

3.92691668 

607.36426 

18.32788 

0.00123175 

-0.00026968 

9 

-6.96939632 

3.36556527 

699. 13989 

5.53191 

0.C007809I 

C. 00032 773 

0 

-6.83366662 

2.78 201199 

778.70752 

-0.50944 

0.00059742 

0.00063915 

1 

- 7.C6998372 

2.17762967 

816.84326 

0.94139 

0.0CC6R664 

C. 00060953 

2 

-7.70669662 

1.95712986 

788.78442 

1.902 5 7 

3.0007C497 

0.00094911 

3 

-7.30916783 

0.92529762 

732.75193 

1.60168 

0.00064711 

0.00051593 

6 

- 7, 398 79 7C7 

0.28673792 

733.86206 

1.269C2 

0.C006 34 70 

0.00353074 

9 

-7.39796767 

-0. 35 379168 

775.03882 

1.088 34 

3.30069989 

C. 00057073 

6 

-7.29199020 

-0.99137926 

827.99473 

0.92186 

0.00069525 

C.C0361973 

7 

-7.17911939 

-1.62123689 

905.21289 

0.757C5 

0.00075079 

0.30068878 

8 

-7.00638376 

-2.23866269 

909.67627 

0.62590 

0.00074924 

0.00069796 

9 

-6.78067873 

-2.83481676 

812.01660 

0.91159 

3.00066625 

0.000624 34 

C 

-6.9C969263 

-3.61727161 

7 49.62602 

0.38963 

0.00061134 

0.00057942 

1 

-6.181 36689 

-3.96998160 

722.72729 

0.27114 

0. 00098479 

G. 00056298 

2 

-9.81021216 

-6.69153623 

698.69161 

0. 15764 

3.00052998 

C. 00091667 

3 

•9.39909863 

-6.97917652 

613.22983 

0.03607 

0.00048813 

0.0C048914 

6 

-6.93898678 

-5.62877683 

602.97192 

-0.08100 

0.9C347464 

C. 00048 128 

9 

-6.66968039 

-5.83687601 

532.17822 

-C. 17752 

0.30041426 

0.C004298I 

6 

-3.91831398 

-6.20033932 

396.97241 

-0.26499 

G.00C3C248 

O.COO 32419 

7 

-3.36169311 

-6.51637860 

269.47705 

-0.39448 

0.90019406 

0.00022310 

8 

-2.77928392 

-6.78255939 

129.48869 

-0.44732 

C. 00008 131 

O.COOU 796 

9 

-2.1 76 IC266 

-6.99689669 

-1.49609 

-0.55374 

-0.00002780 

0.0000 1794 


-1.99896621 

-7.15760996 

-75.61588 

-0.67621 

-C.000C9213 

-0.C00036 74 

1 

-0.92936269 

-7.26397660 

— 134.6 1C 39 

-0.81330 

-3.00014468 

-0.00007809 

2 

-0.28710639 

-7.31389809 

- 152.494RC 

-0.98 SCO 

-3.00016693 

-0.00008400 


U2 
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J- 160 TIKE* 0. CC04000 


SEPARAT ION I IN. I • 15.13296 


TOTAL ENERGY INPUT INTO PINO > 6092.492 IIN-LBI 

INITIAL ELASTIC ENERGY • 0.0 ( IN-LBI 

IPPULSIVE ENERGY INPUT • 0.0 IIN-LBI 

EXTERNAL ECRCE INPUT • 6092.492 IIN-LBI 


TOTAL ENERGY IS NON 0ISTR1BUTEQ AS FOLLOWS... 
KINETIC ENERGY OF PING « 4821 .461 IIN-LBI 

ELASTIC ENERGY ■ 144.692 IIN-LBI 

CAPPING ENFRGY ■ 0.0 IIN-LBI 

PLASTIC WCRK * 1116.336 IIN-LBI 

NC FCRCE ACTING CURING TUS CYCLE 


1 

Y 

N 

N 

N 

EPSI 

EPSE 

1 

0.3E9766C1 

-7.26939106 

-151.40141 

-3. 25315 

-0.00026036 

O.C0000616 

2 

I.C7467CC5 

-7.20056534 

22.06512 

-1.68490 

—0 .COO 1 3846 

0.C091614I 

3 

1.6535C819 

-7.0755472? 

182.92386 

-4. 13840 

-0.00002835 

C. 00031067 

4 

2. 26786174 

-6, 8942C168 

312.61035 

-4.609C0 

0.OCL05574 

C.C0343311 

5 

2.86374569 

-6.66087573 

386. 77295 

-5.08560 

0.JC0C9525 

0.C0C51 186 

6 

3.43630C29 

-6.37420368 

346.30249 

-5. 56736 

0.00C04293 

C.C0049901 

7 

3.58084736 

-6.03751755 

215.15981 

-6.06387 

-O.OGwOBINt 

G. 00041515 

8 

4.49261212 

-5.65342236 

3.09447 

-6.59C70 

-0.001,27150 

0.00926642 

9 

4.968316C8 

-5.27492123 

-217. 11798 

-7. 18069 

-0.OCO47403 

0.00011423 

10 

5.40309314 

-4.75534725 

-348.01518 

-7. 85865 

-0.0006C595 

0.00903780 

11 

5.79356818 

-4.24838352 

-378.89282 

-8.61764 

-0 .OCC 66 166 

C .00004430 

12 

6.13649273 

-3.70808220 

-401. 78223 

-9.44461 

-0. 00071415 

0.000C5955 

13 

6.42872143 

-3.13881707 

-433.76855 

-10.31107 

-0.00077607 

0.C090 7025 

14 

6.66761306 

-2. 645247CB 

-515.61865 

-11. 10245 

-0.00089724 

0.00002866 

15 

6. 841C0460 

-1.93273190 

-529. 75562 

-12.41 787 

-O.OOC93845 

C.O0OC7S81 

16 

6.97659451 

-1.30481529 

-359.27759 

-13.65C55 

-O.OOC852 72 

C. 00026553 

IT 

7.04418564 

-0.66852421 

-476.78638 

-14.86520 

-0.0C099631 

9.C002214? 

tfl 

7.C5165863 

-0.02880001 

-7C6. 29517 

-15.99177 

-0.00122247 

0.00007938 

19 

6.65908879 

0.60893244 

-556.26831 

-17.49057 

-J.OC 116728 

0.00926554 

20 

6.88646654 

1.23888367 

-323.25810 

-21.43086 

-O.CC 1 14253 

0.00061308 

21 

6.71384415 

1. 84507679 

-414.13647 

-21.53491 

-O.OC13C181 

0. 0006 2616 

22 

6.4823 3032 

2.45162 868 

-459.92139 

-15.60327 

-0 .00 1C 1269 

0.00026553 

73 

6.16484C84 

3.024C2020 

-127.51463 

-14.86518 

-0.00071689 

0.00050086 

74 

5.8571 5580 

3.56715202 

-141.16157 

-45.15813 

-0. 00197910 

C .001 72024 

75 

5.46288490 

4.07123470 

-433.91040 

-62.15156 

-0.00290767 

0.C022C01 7 

76 

5.01402473 

4.52751732 

-31C. 71513 

-32.02103 

-J. 00158255 

0.00104062 

77 

4.52I6C549 

4.936360 36 

-191.47339 

-7.66315 

-0.00063374 

-C.C000C597 

28 

3.99426507 

5. 799C4079 

-392.70459 

16.30C17 

0.00014632 

-C.CC098900 

79 

1.43947124 

5.61815834 

-372.99780 

84.89656 

0.00317167 

-0.C0378307 

30 

2.86890984 

5.90874773 

-115.38501 

141.09329 

0.00761350 

-0.C0798782 

11 

2.29447269 

6. 19497013 

-408.44849 

t!6. 32152 

9.01443125 

-C. 00860775 

32 

1 . 724 3871 / 

6.50174999 

-147.69019 

49. 14281 

9.02293551 

-0.00052783 

13 

1.15577412 

6.83222294 

-160.89502 

-44.90500 

0.03633588 

0.01791682 

34 

0.58071816 

7.17179680 

-58.67134 

-52.74855 

0.05069214 

0.03516643 

35 

-O.C0864761 

7. 51355634 

-148.88965 

49.27)16 

0.07368565 

C.C5414736 

36 

-0 . 4950P9C 8 

7.86354733 

5.41 724 

82. 11481 

0. 0766C3 77 

0.C5580660 

37 

-1.14787906 

8. 2C 789 146 

-11.17114 

-65.94614 

-0.1 w. 28813 

C . C 3579462 

38 

- 1.7 75CE259 

8.38156128 

-113.10791 

-195.90991 

-U.0 ■’>8860 

0.1015^915 

39 

-7.76778668 

7, 97303963 

-285.65112 

-171.67514 

-0.92133803 

0.01836932 

40 

-2.62547439 

7.43760204 

-169.08641 

-6.63721 

0.92402921 

-C. 01625129 

41 

- 3.04198551 

6.94987297 

-170.97168 

60.02342 

0.92408839 

-0.0227138? 

42 

-3.57636051 

6. 53 1 8250 7 

-212.40747 

171.64C26 

0.01760545 

-0.01958025 

43 

-4.05111914 

6.16570187 

-146.49854 

137.42015 

0.00559866 

-0.00598155 

44 

-4.56587696 

5, 785C5230 

-175.06738 

86.55859 

C. 00339925 

-C. 00 169164 

45 

-5.06034184 

5.37868595 

-209.95103 

20.45738 

0.0Cu662 4B 

-0.00101299 

46 

-5. 421114(2 

4.93475056 

-273. 75317 

-25.82 1 67 

-O.CC 128319 

C. 00081213 

47 

-5.91646254 

4.44781685 

-352.24219 

-60.57112 

- J.C02 76965 

0.C0219257 

48 

-6.29442566 

3.91727924 

-327.40112 

-48.68735 

-0.90226269 

O.CC 172578 

49 

-6.5932C06B 

3.35136414 

-125.64087 

16.48689 

0.9CO4j816 

-0.00394246 

50 

-6.84558296 

2. 76328564 

-345.21 387 

17.32794 

9.90124635 

-0.C0181 156 

51 

-7.05524711 

2. 158648C3 

-310.49 39C 

7.53545 

3.0CCC533! 

-O.C0056399 

52 

-7.21337686 

1.53853512 

-279.2146C 

-7. 59158 

-9.00053964 

0.00008226 

53 

-7.31486844 

0.90669560 

-214.95667 

-1.11C1S 

-9.0Co2 3993 

-C « v09 l 4895 

54 

- 7. 36C581 40 

0.26829481 

-147.52221 

1. 3570 6 

j . OGuC 1348 

-4.00326 154 

55 

-7.35138688 

-0.37174678 

-46.41170 

2.17349 

3. CCwL0569 

-C.CC 11 7236 

46 

-7.28701308 

-1.00857449 

-66.36404 

0.92940 

-x.OGOC 2 1 52 

-G.CCJC9766 

67 

- 7.16765P8I 

-1.63738823 

-17.06416 

0. 73414 

U.G000C968 

-9.C0CC5046 

58 

-6.99411011 

-2 . 25344CC4 

24.64771 

0.63105 

0.00003980 

-0. COOC 1206 

49 

-6.76767540 

-2. 85229969 

61.21812 

0 . 39 8 0 9 

9 .90005914 

C.C00C2653 

60 

-6.49001503 

-3.429C943 1 

71.99651 

0. 15640 

9.000C5799 

0.C00C4518 

61 

-6.16317168 

- 3. 9795084C 

54.67754 

-0.06452 

0.9C0C1470 

0.0000 3998 

62 

-4.78958688 

-4.49931817 

19. 10117 

-0.27875 

0.00001428 

C • COOC 3712 

61 

-6.37209225 

-4.984 540 '.4 

-7.73964 

-0.48453 

-3.0OCC 3195 

0.OCOC0774 

64 

-4.91383076 

-5. 43139744 

-91 .63907 

-0.69262 

-3.000 10711 

-0.CC9C5059 

64 

-4.41827011 

-5. 83644485 

-147.57294 

-0.91729 

-3.0CL 16188 

-0.CCCC8674 

66 

-3,86916706 

-6. 19647040 

- 1 68. 31 COO 

-l. 15171 

-3.00018796 

-J.L03C9362 

67 

-3.3 3054161 

-6.50861876 

-2C6. 60153 

-1.39915 

-0.C0022790 

-l .CG31 1328 

48 

-2.74667835 

-6.7MC4855 

-198.86687 

-1.67659 

-9.U0023330 

-C.C0009595 

49 

-2.14156543 

-6. 98088646 

-114.94193 

-1.96819 

-0.00017823 

-C.CCOOI697 

70 

-1.67118778 

- 7.13671207 

-91.87127 

-2.25381 

-3.00017155 

C. 00001 307 

71 

-0.88917868 

-7.23773793 

-1 31.96915 

-2.54433 

C.3C02I512 

-C.C00C0669 

72 

-0.24C64866 

-7.28160572 

-184.41657 

-2.86807 

-u. OCC 2 70 84 

-0.C00C3588 
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230 


TINE- 0.00090 0C 


J> 


SEPARATION IIN. I « 15.3116* 


TOTAL ENERGY INPUT INTO RING 
INITIAL ELASTIC ENERGY 
IPPULSIVE ENERGY INPUT 
EXTERNAL FCACE INPUT 


6092.492 I IN-LB) 
0.0 « IN-LB I 

0.0 IIN-LNI 
6092.492 UN-LB! 


TOTAL ENERGY IS NOW DISTRIBUTED 
KINETIC ENERGY OF RING 
ELASTIC ENERGY 

DAPPING ENERGY ■ 

PLASTIC WC«K • 


AS FOLLOWS... 
4731 .012 IIN-LBI 
193. 9IB IIN-LBI 
0.0 IIN-LBI 
I 167.939 IIN-LBI 


NO FORCE ACTING OURING THIS CYCLE 


1 

V 

W 

N 

N 

EPS! 

EPSE 

l 

0.42798162 

-7.53269272 

1008.19299 

-5.42*03 

3.00057241 

0.00102927 

2 

1 . CE401 197 

-7. 15646443 

967.47949 

-6.09734 

9.00051743 

0.00101693 

3 

1.69061569 

-7.02344567 

946.87622 

-6. 7422 8 

0.00C47429 

0.00192699 

4 

2. 30282879 

-6.83466930 

1093.47705 

-7.42264 

3.00056306 

0.0011711) 

5 

2.89947443 

-6.59136486 

1005.(9648 

- 8 . 12265 

0.00046453 

0.00112996 

6 

3.46361732 

-6.29541683 

942.44819 

-8.91968 

0.00038*79 

0.0C111930 

T 

4.00296348 

-5. 94901962 

1070.40723 

-9.77499 

9.00044859 

C.CO 1 249 32 

8 

4.50762272 

-5. 954923C6 

964.74707 

-10.67603 

O.OOt 3268 1 

0.00120140 

9 

4.97443330 

-5. 11673001 

936.03931 

-U.68C60 

0.00026257 

0.00121946 

10 

5. 39B90B62 

-4.63642406 

999.09790 

-12.77(89 

0.0002)293 

C. 001279(0 

tl 

5.77715778 

-4. 11941041 

934.41772 

-13.9*524 

O.wCO 16744 

0.001)1310 

12 

6.10574436 

-3.56940269 

1077.22363 

-15.2 794 9 

0.00022(49 

0. 0014(018 

13 

6. 38145*78 

-2.991C7974 

11*2.92603 

-16.76519 

0.00029219 

0.00162958 

14 

6.601514(2 

-2. 389 17732 

1342.(6182 

-18.69642 

3.09031086 

0.001(3918 

15 

6.76349825 

-1.76408*74 

1472.16089 

-20.22647 

0.00034134 

0.00199*2* 

16 

6. 86536694 

-1. 13632870 

1915.40649 

-20.39169 

0.00036912 

0.00203960 

17 

6.4C624CC5 

-0.49677110 

1552.31079 

-22.83911 

0.00029895 

0.00216992 

18 

6.88416C45 

C. 14380914 

1432.29 370 

-31.91708 

-0.0000(983 

0.002524(1 

19 

6.74976082 

0.7790*933 

1948.76196 

-33.50027 

-0.00014136 

C.C0260297 

2C 

6.(5056610 

1.40236187 

1907.80835 

-15.83775 

0.00054987 

0.00184 730 

21 

6.44355392 

2.00895691 

1550.09989 

-15.96518 

0.40057800 

0 .CO 18(984 

22 

6.1BC54439 

2.5934457* 

1485.41284 

-52.25916 

-0.0C095936 

C.CC332170 

23 

4. *>545(26 

3. 14574054 

1371. 7312C 

-68.49393 

-0.001715*7 

0.00)89515 

24 

5.46*6679* 

3.65667679 

1152.51464 

-62.49602 

-0.00164696 

0.00)47)12 

25 

5.02658463 

4. 120443(3 

907.12964 

-71.63824 

-0.00221694 

0.00365167 

26 

4.47327465 

4.525731(2 

766.89819 

-43.65451 

-0.00118279 

0.00239J44 

27 

3.99966431 

4. *83*5391 

707.0944* 

41.00749 

0.002 2 3 6 *8 

-0.00112247 

2* 

3.44260311 

4.20015426 

594.50 342 

109.52742 

0.00495274 

-0.00401935 

29 

2.87284*51 

5.49318695 

4I3.1482C 

144.7U299 

0.C0914264 

-0.C0770046 

30 

2.3C2BC6BS 

5.78563213 

33*. 12866 

153.13940 

0.01429912 

-0.01276886 

31 

l. 7470*547 

6. 1C7771B7 

192.538*2 

74.96294 

0.01252148 

-0.009(067) 

32 

1. 1**91621 

6.43624687 

329. 73926 

99.05446 

0.02372168 

-C. 00055340 

33 

0.63464645 

6.79063034 

229. 70923 

131.78172 

0.04427144 

0.01059676 

34 

C.1043C664 

7.19701195 

387.96094 

111.07932 

0.057(1)75 

0.02867996 

15 

-C. 41021876 

7.64419174 

154. 31023 

-32.32202 

0.07058454 

0.05773048 

36 

-0.93537247 

A.C8098412 

181.84937 

-1C3. 53264 

0.96(57377 

0.0637(275 

37 

•1.46047974 

8.46467400 

*8.05322 

-163.27794 

-0.01206832 

0.041(6496 

IB 

-2.08757823 

8.63693714 

15.45557 

-201.61237 

-0.0752C77I 

0.10532993 

39 

- 2. 559 1 1 C64 

8.20420265 

7.74097 

-177.74033 

-0.02615739 

0.02318793 

40 

-2.(6178112 

7.63622474 

1.50098 

-94.465*7 

0.01(63486 

-0.0117)172 

41 

- 3.7 OC 47160 

7.09157317 

102.95613 

50.0 306 4 

0.02389612 

-0.02208726 

42 

-3.615(5971 

6. 6C 3 9*2 38 

-8.94043 

145.26640 

9.019(0350 

-0.02072)29 

43 

-4.0(577251 

6.16*789*6 

43.00195 

164.98505 

0.01469432 

-C. 01497811 

44 

-4.5(20 1122 

5. 76439190 

6.31664 

138.77(43 

0.00580863 

-0 .003839 2* 

45 

-4.06678581 

5.34636688 

-76.13159 

74.06754 

0.00300401 

-0.00)06361 

46 

-5.57727127 

4.90183248 

-141.09399 

15.07429 

0.00048852 

-0.00074645 

47 

-5.94024(72 

4.42157078 

-319.81860 

-35.75529 

-C. 00172*90 

0.00120019 

4* 

-6.771928C2 

3.90071964 

-496.20947 

-59.234(3 

-0.0C283141 

0.002C2I 12 

49 

-6.6?2934'4 

3.34169197 

-770. 143*0 

-49.52516 

-0.00265317 

0.G0I4039) 

50 

-6.8*1*1973 

2. 75245571 

-949.04175 

-29.51366 

-0.0C1S1299 

0.C0027749 

41 

-7.07184650 

7. 14174366 

-1016.85962 

28.77269 

0.00033651 

-0.00 200056 

52 

- 7.2 154(843 

1.51844788 

-960.17212 

50.62477 

0.90129(6* 

-0.00284890 

43 

-7.3176*703 

0. 887C5045 

-879.99976 

7.617(8 

-0.00036008 

-C.C0098414 

54 

-7.36(44940 

0.24972889 

-831.59493 

-20. 19679 

-3.00150039 

0.C0O15413 

45 

-7.35*11549 

-0. 390 36936 

-843. 4446* 

-5.2(583 

-O.0CO9O743 

-C.C0047441 

56 

-7.2(463268 

-1.02622318 

-875.34375 

7.42C8 7 

-C.0004C456 

-0. OC 1 0 1 24* 

57 

-7.16194534 

-1.65 355C69 

-877. 39819 

3.(8441 

-J.0GG95O43 

-0.00086869 

58 

-6.44499148 

-7.26899719 

-766.33203 

-0.33526 

-C.COC 63453 

-0.00060707 

59 

-6.75694711 

-2.86641407 

-*16.9716* 

-0. 30 186 

-0.00091)38 

-0.0004(916 

6C 

-6.47677462 

-3.44157982 

-465.6333C 

0.1727* 

-J. 00045347 

-0.0004676 3 

41 

-6.14739C37 

-3.990 20*72 

-44C. 13257 

-0.2264* 

-0. 00037755 

-0.090)590) 

62 

-5.77133846 

-4.4C813675 

-116.98904 

-0.75963 

-9.00013168 

-C. 00006949 

63 

-5.35138075 

-4.99126625 

4*. 69825 

-1.10153 

-9.0CGC 1402 

O.OOOC 7622 

64 

-4.89077895 

-4.43971186 

-24.12340 

-1.42496 

-O.OCG08500 

0.0000)174 

69 

-4.39279461 

-5.(3806133 

126.34427 

-1.(3937 

O.OCOO 1777 

0.C00I6846 

66 

-3.86127C90 

-6. 19518185 

449.631*4 

-2.25094 

0.0002996* 

0.0004440* 

47 

-3.7-3033207 

-6. 90408649 

492.43359 

-2.61464 

0.00C27989 

0.0004940* 

6R 

-2.71433928 

-6.762274 74 

434. 10718 

-3.03535 

0.00021666 

0.00046532 

49 

-2.10771275 

-6.96768093 

704. 11108 

-3.52163 

0.00041169 

0.00070015 

70 

- 1 .48515606 

-7.11143694 

897.87329 

-3.973*8 

9.00034 779 

0.000(73)4 

71 

-0.891769C9 

-7.21349339 

800. 15625 

-4.43193 

0.0004 9 1 3* 

O.COOSI444 

72 

-C.2I236C02 

-7.25169699 

*46. 96069 

-4.96 7 38 

0.90046690 

0.10387)4) 
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J* 26C Tire* 0.0C06000 SEP AHAT ION ( IN. I • I*. *2*10 


TOTAL energy input into ring • 
initial elastic energy > 

IMPULSIVE ENERGY INPUT 

eiternal fcrce input • 


60*2. *92 IIN-LRI 
0.0 IIN-LRI 
0.0 IIN-LRI 
60*2. *92 IIN-LRI 


total ENERGY IS NCR oistriauteo as rollons... 


k INC I 1C ENFRGY OR KING 
ELASTIC ENERGY 
OAMPING ENERGY 
PLASTIC NCR* 


• *662.516 IIN-LRI 

- 19*. 327 IIN-LRI 

• 0.0 IIN-LRI 

■ 12)3.6*8 IIN-LHI 


NO FORCE ACTING DURING THIS CYCLE 


1 

V 

M 

N 

M 

EPSI 

EPSE 

1 

0. *7*15376 

- 7. 1 82C6556 

-591.59570 

-7.66019 

-0.00079666 

-C. 00016913 

2 

I.I082IRI9 

-7.097C66S7 

-666.665)1 

-8.67571 

-0.000*7281 

-0.00017867 

) 

1 • 711 9669 7 

-6.95*9112) 

-650. 31372 

-9.36932 

- j .0009 120* 

-C.C001661 3 

* 

2. 3*0 200*2 

-6. 756567*) 

-695. 80151 

-10.28151 

-0.000987C9 

-0.0001668? 

5 

2.927 7* 1 CS 

-6.50160166 

-715.23926 

-11.28652 

-0.30105973 

-0.00011513 

6 

3. *8950863 

-6.19736195 

-766.66312 

-12.10156 

-O.OC11283? 

-0 .00011 601 

7 

* . 0706* ECO 

-5.8607)6)9 

-715.52905 

-13.58006 

-0.J01 1)786 

-C.000C2536 

8 

6.51639175 

-5.63635273 

-735.33C57 

-16.91172 

-G.C0120831 

C. 00001326 

* 

6.97722319 

-6.9876C959 

-660.91138 

-16.29C77 

-0.00119928 

0. COO 16527 

10 

5.38391307 

-6.69755A59 

-678.80981 

-17.61958 

-J.wOll 1*66 

0.00032893 

II 

5.767*8611 

-3.97096062 

-668. 1 6GH 7 

- 1 9 . 606 3 7 

-0.00117063 

0.0006)556 

12 

6.C592I555 

-3.6 12C636C 

-166.39866 

-22.51395 

-0.0C122286 

G.C006215C 

1) 

6.11551818 

-2.82567596 

-165.55)67 

-23.05661 

-3.30122971 

0.0C065S91 

1* 

6.51386070 

-2.21 772756 

-351.676)2 

-2C.99C21 

-v. >0113389 

C.C0055285 

15 

6.653C37C7 

- 1. 59258767 
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